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SECURITY APPARATUS AND METHOD 

background of the invention 

Many electronic devices, such as laptop computers and cellular telephones, are becoming 
more compact and portable. While such portability is extremely convenient for the user, it has 
given rise to an increased risk of theft. These electronic devices are often very expensive and 
are easily lost or stolen. 

Previously, attempts have been made to provide means for retrieving lost or stolen items 
of various types. The simplest approach is marking the item with the name and the address of 
the owner, or some other identification such as a driver’s license number. If the item falls into 
the hands of an honest person, then the owner can be located. However, this approach may not 
deter a thief who can remove visible markings on the device. 

Password protection schemes are of dubious value in discouraging theft or retrieving an 
item. Although the data can be protected from theft, the computer hardware cannot be found 
or retrieved. Another approach has been to place a radio transmitter on the item. This has been 
done in the context of automobile anti-theft devices. The police or a commercial organization 
monitors the applicable radio frequency to try to locate a stolen vehicle. This method is not 
suitable for smaller items such as cellular telephones or laptop computers. First, it is 
inconvenient to disassemble such devices in order to attempt to install a transmitter therein: 
Second, there may not be any convenient space available to affix such a transmitter. 
Furthermore, a rather elaborate monitoring service, including directional antennas or the like, 
is required to trace the source of radio transmissions. 

It is therefore an object of the invention to provide an improved means for tracing or 
locating smaller lost or stolen objects, particularly laptop computers, cellular telephones, desktop 
computers and other small, portable electronic devices or expensive home and office electronic 
equipment. It is also an object of the invention to provide an improved means for tracing such 

electronic devices which can be installed without disassembly or physical alteration of the devices 
concerned. 

It is a further object of the invention to provide an improved means for locating lost or 
stolen items, this means being hidden from unauthorized users in order to reduce the risk of such 
means being disabled by the unauthorized user. 

It is a still further object of the invention to provide an improved means for locating lost 
or stolen items which actively resist attempts to disable the means by an unauthorized user. 
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It IS a still further object of the invention to provide an improved means for inexpensively 
and reliably locating lost or stolen items. 

The invention overcomes disadvantages associated with the prior an by yielding a 
security device for small computers, cellular telephones or the like which can be programmed 
onto existing memory devices such as ROM devices, hard disks or the like. Accordingly, no 
physical alteration is necessary or apparent to a thief. The existence of the security device is 
well cloaked and it cannot be readily located or disabled even if the possibility of its existence 
is suspected. Apparatuses and methods according to the invention can be very cost effective, 

requiring relatively inexpensive modifications to software or hardware and operation of relatively 
few monitoring devices. 


SUMMARY OF THE INVENTION 


This invention. Electronic Article Surveillance System, relates to a security apparatus and 
method for retrieving lost or stolen electronic devices, such as portable computers. This 
invention enables electronic articles to be surveyed or monitored by implanting an intelligent 
Agent with a predefined task set onto an electronic device. This Agent communicates with a 
preselected Host Monitoring System which is capable of multiple services including; tracing 
location, identifying the serial number, and electronically notifying the end user/owner of its 
location. The Agent hides within the software/firmware/hardware of the electronic device, and 
operates without interfering with the regular operation of the device. The Agent is designed to 
evade detection and resist possible attempts to disable it by an unauthorized user. 

According to one aspect of the invention there is provided an electronic device with an 
integral security system. The security system includes means for sending signals to a remote 
station at spaced apart intervals of time. The signals including identifying indicia for the device. 
Preferably, the means for sending signals includes a telecommunications interface connectable 
to a telecommunications system, and means for dialing a preselected telecommunications number. 
The remote station includes a telecommunications receiver having said preselected 
telecommunications number. 

Where the electronic device is a computer, the means for sending signals includes means 
for providing signals to the telecommunication interface to dial the preselected telecommunication 
number and send the identifying indicia. The telecommunication interface may include a 

modem. The means for providing signals may include security software programmed on the 
computer. 
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The Agent security system may be recorded on the boot sector of a hard disk or, 
alternatively, on a hidden system file such as IO.SYS, MSDOS.SYS. IBMBIO.COM or 
IBMDOS.COM. 

There is provided according to another aspect of the invention a method for tracing lost 
or stolen electronic devices whereby a telecommunications interface is connectable to a 
telecommunications system at a first telecommunications station. The method includes providing 
the electronic device with means for sending signals to the telecommunications interface. The 
means is instructed by the program to send first signals to the telecommunications interface 
which dials a remote telecommunications station. These first signals contain the encoded 
identification (serial number) of the sending computer. The telecommunications interface then 
dials a remote telecommunications station corresponding to the intended receiving computer. 
Upon detecting a ring signal, the remote computer retrieves the caller phone number and the 
identification of the sending computer from the telephone company. The remote computer 
decodes the serial number of the sending computer, and compares it with a predefined listing of 
serial numbers of lost or stolen computers. The call will only be answered if the sending 
computer is on the predefined list. 

In an alternative embodiment, if the remote computer answers the ring then the 
for sending signals automatically sends second signals to the telecommunications interface, which 
transmits to the remote telecommunications station identifying indicia for the device as well as 
any other pertinent information. 

There is provided according to another aspect of the invention a method for encoding the 
serial number of the sending computer within a sequential series of dialed numbers. In this 
method, a predetermined digit within the dialed number sequence corresponds to one of the digits 
of the serial number. The preceding digit within the encoded signal indicates which digit within 
the serial number sequence that the predetermined digit represents. 

BRIEF DESCRIPTION OF THE DRAWINGS 

These and other objects and advantages will become apparent by reference to the 
following detailed description and accompanying drawings, in which: 


FIG. 1 is a functional block diagram of the Electronic Article Surveillance System in 
accordance with the teachings of this invention. 


SUBSTITUTE SHEET 



FIG. 2 is a simplified illustration of FIG. 1 for the purpose of showing an illustrative 
embodiment of the present invention. 

FIG. 2A is a flowchart of the process by which the operating system and Agent are able 
to start up and run simultaneously. 

FIG. 2B is a flowchart of the process by which the Host Identification and Filtering 
Subsystem identifies and filters out unwanted calls from Agents. 

FIG. 2C is a flowchart of the process by which the Host Processing, Auditing and 
Communication Subsystem, contained within the host computer, exchanges data with an 
Agent. 


F1G 2D « a flowchart of the process by which the Host Notification Subsystem, 
contained within the host computer, notifies end-users of the status of monitored devices. 

HG. 3 is a flowchart showing the conventional method of booting up a personal 

computer with alternative loading points for the Agent security system shown in broken 
lines. 

FIG. 3A is a flowchart showing a method for startup loading of an Agent security system 
according to an embodiment of the invention wherein the operating system boot sector 
is loaded with the Agent. 

FIG. 3B is a flowchart similar to FIG. 3A wherein the hidden system file IO.SYS or 
IBMBIO.COM is modified to be loaded with the Agent. 

FIG. 3C is a flowchart similar to FIG. 3A and 3B wherein the partition boot sector is 
modified to be loaded with the Agent. 

FIG. 3D is a flowchart similar to FIG. 3B and 3C wherein the Agent security system is 
ROM BIOS based. 
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FIG. 3F, 3G are portions of a flowchart showing the Agents' work cycle apparatus and 
method according to an embodiment of the invention. 


FIG. 3H is an isometric view, partly diagrammatic, of the physical structure of a 
computer disc. 

FIG. 4 is a schematic showing the encoding/decoding method whereby the monitoring 
service would have to subscribe to 60 telephone numbers. 

FIG. 4A is a schematic showing the encoding/decoding method whereby the monitoring 
service would have to subscribe to 300 telephone numbers. 

DESCRIPTION OF THE PREFERRED EMBODIMENTS 

System Overview 

Referring to Figure 1, the Electronic Article Surveillance System is comprised of three 
main components: (|) Client device A consisting of any electronic device which has been 
implanted with the Agent; (2) A telecommunication link B such as a switched communications 
system, cable networks, radio/microwave signal; and (3) The host monitoring system C which 
controls the communications between the client device A and the host monitoring system C. 

Referring to FIG. 1, the client device can be a cablevision device A2, laptop computer 
A3, or other type of electronic device A4. However, for illustrative purposes, the client device 
consists of a computer A1 attached to modem M. The host monitoring system C sends and 
receives data packets from the client computer 10 over a suitable bi-directional transmission 
medium, such as a common telephone line LI. Telephone line LI couples the client device C 
to the host monitoring system C, and the host computer 3, through Public Switch B1 (telephone 
company). The host monitoring system C notifies the appropriate parties C3 (owner O, law 
enforcement agency, or monitoring company) of the status of the client device A via suitable 
communication means such as electronic mail Nl, fax N2, telephone N3 or pager N4. Host 
monitoring system C also identifies and filters incoming calls Cl, and also provides processing, 
auditing and communication functions C2 . 
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In another embodiment of the invention cablevision device A 2 is connected to cablevision 
network B2 via cable L2. This cable L2 further connects cablevision network L2 to the host 
monitoring system C. 

In another embodiment of the invention laptop computer A3 is connected to radio tower 
B3 via radio frequency (RF) transmissions L3. These RF transmissions are received by satellite 
dish S at the host monitoring system C. 

In yet another embodiment of the invention electronic device A4 is connected to satellite 
B4 via microwave signal L4. Microwave signal U further connects satellite B4 to satellite dish 
S at the host monitoring system C. 

Referring to FIG. 2, the Host Monitoring system C is comprised of a Voice Board 2, 
Host Monitoring Computer 3, Hard Disk Controller 4, Hard Disk 5, CRT 6, Keyboard 7, and 
Printer 8. The host monitoring computer 3 is coupled to a suitable display device, such as a 
CRT monitor 6, keyboard 7, and to printer 8. The keyboard 7 permits the operator to interact 
with the Host Monitoring System C. For example, the operator may use keyboard 7 to enter 
commands to print out a log file of the clients that have called into the system. The host 
computer 3 illustratively takes the form of an IBM personal computer. The source codes for the 
host monitoring system C. in Visual C + + by Microsoft, are attached in the Appendix. 

Telephone line 1 is connected to the computer 3 by a voice board 2 adapted to receive 
and recognize the audible tones of both caller ID and dialed numbers transmitted via the 
telephone line 1. Client computer 10 is connected to modem 9 via serial ports 9a. Host 
computer 3 is connected to voice board 2 via serial port 2a. The modem 9 and voice board 2 
are connected to telephone line 1 which is routed through public switch 9b in accordance with 
a conventional telephone system. Computer 10 and modem 9 form a first telecommunication 
station, while computer 3 and voice board 2 form a second, or remote telecommunications 

system. The Host Monitoring System C sends and receives data packets from client computer 

10 . 

Ring signals are received on phone line 1 as an input to voice board 2. In an illustrative 
embodiment of the invention, voice board 2 may take the form of the DID/120, DTI/211 and 
D/12X Voice boards manufactured by Dialogic Corporation. Hie voice board 2 is coupled to 
host computer 3 via data bus 2a. The voice board 2 is operative to recognize the ring signal. 
Then it receives the caller ID and dialed numbers and converts them into corresponding digital 
signals. Host computer 3 uses these signals for comparison against a list stored in hard disk 5. 
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In an illustrative embodiment of the invention, the hard disk controller 4 may comprise 
memory control boards manufactured by Seagate Tech under the designation Hard Disk 
Controller. The hard disk controller 4 is particularly suitable to control the illustrative 
embodiment of the hard disk memory 5 manufactured by Seagate Tech under their designation 
ST-251. 

The Agent is a terminated and stay resident program which is installed on hardware, 
software, or firmware. The alternative methods of installation are described in detail in FIGS. 
3A, 3B, 3C, and 3D. Once the Agent is installed it will report its identity and its location to the 
host after specified periods of time have elapsed, and upon the occurrence of certain 
predetermined conditions. This is further illustrated in FIG. 2A. Client source codes are 
disclosed, in Tazam Assembler Code by Borland, in the Appendix. 

installing and Loading the Agent 

The Agent is installed during a typical boot up sequence to the operating system of a 
computer. FIG. 3 shows a boot-up process for a typical personal computer. The details of the 
boot up process are discussed in Appendix I. It should be understood that this invention is 
applicable to other types of computers and electronic devices presently available or as marin*^ 
in the future with suitable modifications. The aspect of the invention described below is the 
process of installing the security software onto a portable computer such as client computer 10. 
The method of installation is crucial because the software must remain undetectable once 
installed. Furthermore, the software should be as difficult as possible to erase. In summary, the 
invention achieves these objects by installing the software in such a manner that it remains 
hidden to the operating system, such as MS-DOS. 

Three alternative ways of installing the Agent security system during the disk boot are 
illustrated in FIG. 3A-3C respectively. A conventional boot up method is described in detail in 
Appendix I. A fourth alternative, installing via ROM, is shown in FIG. 3D. The system can 
also be installed with MS.SYS or IBMDOS.COM, but these are more difficult and less preferred 
than the three alternatives set out below. The loading program TENDER (further described in 
the Appendix) can be used to install the Agent by one or more of these alternative installation 
methods. Thus, the Agent may be installed in a variety of locations whereby second and third 
Agents can provide back up support for the primary Agent. The three locations where the Agent 
can be installed on the client device are as follows: 

1. The operating system boot sector- See FIG. 3A. 
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2. A bidden system file such as IO.SYS for MS-DOS or IBMBIO.COM for PC- 

DOS- See FIG. 3B. 

3. The panition boot sector- See FIG. 3C. 

Referring to FIG. 3A, the Agent loading sequence is described for loading the Agent on 
the operating system boot sector. The computer 10 is powered on and the loading sequence 
begins 64. As is well known in the art, the computer 10 performs an initial testing routine to 
assure that all components are working properly 65. Illustratively, the program incorporated is 
the IBM-PC compatible Power-On Self Test (POST) routine. The partition boot sector is loaded 
66. Next the operating system boot sector with the installed Agent is loaded 67. In an effort 
to maintain the transparency of the Agent, the CPU registers (corresponding to the current state 
of the computer) are saved 68. Before the Agent is installed there is a check for a Remote 
Procedure Load (RPL) signature 69. If the signature is present this indicates that the. Agent is 
already in memory and will not be loaded again. However, if there is no RPL signature then 
preparation is made to load the Agent. First, space is reserved for the Agent at the ceiling of 
conventional memory 70. Next, Interprocess Communication Interrupt (2Fh) is hooked 71 which 
enables communication with other programs. Interrupt 13h, which is the disc input/output 
handler, is hooked 72. The old timer interrupt is saved, and new hook timer interrupt is put into 
place 73. Now the CPU registers are restored 74 in order to maintain the transparency of the 
system. The original operating system boot sector is loaded 75. The original operating system 
had been moved to accommodate the Agent installation. Finally, the operating system is loaded 
76 and running 77 again. 

Referring to FIG. 3B, the Agent loading sequence is described 78-91 for loading the 
Agent on a hidden system file such as IO.SYS for MS-DOS or IBMBIO.COM for PC-DOS. 
The sequence is analogous to that disclosed above for the operating system boot sector. 
However, instead of lading the Agent with the operating system boot sector, the Agent is loaded 
with the operating system file 82 (load modified IO.SYS or IBMBIO.COM). 

Referring to FIG. 3C. the Agent loading sequence is described 92-104 for loading the 
Agent on the partition boot sector. The sequence is analogous to that disclosed above for the 
operating system boot sector. However, instead of loading the Agent with the operating system 
boot sector, the Agent is loaded with the operating system partition boot sector 94. 

Referring to FIG. 3D, the Agent loading sequence is described 105-116 for loading the 
Agent via ROM BIOS. This schematic illustrates an embodiment of this invention on firmware. 
The sequence is analogous to that disclosed above for the operating boot sector. However, the 
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Agm is loaded from to ROM .ter to CPU rejiste, are ato l07 . A. to, „me to ROM 

ca. to. control of to sys.cm to load to A«an,. Once to CPU r.gioers are rtoore] 113. 
the ROM can no longer load the Agent. 

FIG. 2A is a flow chair of the Agent Work Cycle. This Work Cycle describes the 
method by which the Agent is loaded when the computer 10 is initially turned on, and the 
manner in which the operating system and the Agent nm simultaneously. Once the client 
computer 10 is powered on 11, it performs a power on self-test (POST) 12. The POST tests the 
system hardware, initializes some of the devices for operation, and loads the master boot record 
(MBR) 13. Since the MBR was installed with an Agent Subloader, the Subloader is loaded into 
memory 14 and executed. The Subloader's first task is to load the Agent IS into memory. Then 
the Subloader loads the operating system (OS) into memory 16 and returns control to the 

operating system. Now both the operating system 17 and the Agent 18 are running 
simultaneously. 


Eunctionsnfth* fl frnt 

Referring to Figure 2A. the Agent's primary Job is to determine the appropriate time for 
“to call the Host Monitoring System (Host) 19 to report its status (such as identity, location and 
other information). Secondarily, like any terminated and stay resident program, the Agent will 
not interfere with any running applications unless designed to interfere. Thus, the Agent can 
avoid being detected. The Agent will determine if it should call the Host 18 times per second 
n»e Agent will only call the host when a predefined time period has elapsed, or a pre¬ 
determined event has occurred which triggers the client to contact the host. The Agent compares 
the current date and time with the date and time corresponding to the next time that the Agent 
is due to call the host. If the Agent determines that it is time to call the Host, it will do a 
thorough search within the computer 10 to find free (not currently being used by any running 
application) communication equipment 20. In an illustrative embodiment, the communication 
equipment is a modem 9. If the agent fails to find any free equipment, then it will abort its 
attempt to call the Host and repeat the cycle 18. However if the Agent locates free 
communication equipment, it will call the Host 21. Upon receiving a call from the client 10. 
the Host examines the Agent identity and determines if a connection should be established 22. 

If the Host does not accept the call then the Agent will not call back until the next appropriate 
time (after predetermined time period has elapsed) 18. If the Host accepts the call, then the 
Agent will send the Host its encoded identity (serial number), location (caller ID) and any other 
pertinent information such as local date and time 23. The Agent then checks if the Host has any 
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data or commands for the client 24. If the Host has no data or commands to be sent, then the 
Agent will terminate the call and repeat the cycle 18. Otherwise, the client will receive the data 
or commands from the Host before it terminates the call and repeats the cycle 18. This Work 
Cycle is described in much greater detail in FIGS. 3F and 3G and is described in the Detailed 
Operation section. 

The system remains transparent to an unauthorized user via implementation of well 
known deflection methods. Attempts to read or write to the location where the Agent has been 
installed are deflected in order to prevent discovery of the Agent. When read attempts are made 
to the Agent location the system generates meaningless bytes of data to be returned to the user. 
When write attempts are made to the location where the Agent is installed, the client computer 
10 accepts the input data and informs the user that the write has been successful. However, the 
data ts not really stored, and thus the Agent is preserved. In the Appendix, the source code for 
the disk deflection routines are disclosed within file SNTLI13V.ASM. 

Detailed Operation of Ag ent Work Cycle 

Referring to FIG. 3F, the following is a description of what happens during the period 
of time when the Agent security system is in "active" mode 117, 118: 

Once the system is powered on, the timer interrupt will occur 18.2 times per second 117. 
Every 18 timer interrupts, the complementary metal-oxide semiconductor (CMOS) real-time 
clock will be accessed, and the time and date will be stored for comparison with the previous 
real-time clock access. If the date and/or time changes towards the future, no action will be taken 
to track the time displacement. In this way the Agent determines whether it is time to call the 
host 118. Thus if the current date has advanced far enough into the future (past the date and time 
to call the host), the Agent security system will change its mode of operation from active to alert 
119 whereby calls will be regularly attempted until a call is made and a transaction with the host 
server has been completed. If the system time has been backdated, this will also a modal 
change from active to alert. 

Referring to FIGS. 3F and 3G, the following is a description of what happens when the 
Agent security system is in "alert" mode 119-161: 

The communications pom are checked 119-125 (via a port address table 120) to see if 
they exist. If the first one encountered is not in use 123, it will be dynamically hooked 126 into 
by swapping the appropriate interrupt handler and unmasking the appropriate interrupt request 
line. If an error occurs, the next port will be checked 124 until either a valid port is found or 
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ihe port address table has been exhausted 125. Appropriate cleanup routines restore ’swapped' 
ports to their initial settings. 

If the communications port responds properly, the system will then attempt to connect 
to a modem via issue of the Hayes compatible AT command 128. If the modem does not exist, 
then the next port will be checked 124. If the modem responds with an ’OK’ to the AT command 

129, the system will attempt to initialize the modem by sending it a modem initialization string 

130, 132 (from a table of initialization strings 131). If the modem does not respond with an 
*OK’ 134, this indicates that the initialization attempt failed 135. If the initialization attempt 
failed, then the next string in the table will be tried 136, and so on until a valid initialization 
string is found 134, or the modem initialization string table is exhausted 136 (at which point, the 
routine will delay for some seconds then try again from the start, using the first initialization 
string 130). 

Once a valid and available communications port has been found, and it has been verified 
that a functional modem is associated with that port, the system will attempt to dial out to the 
remote host server 137, 138. 

A dial string table 140 is used 139 to anempt the call since a PBX or switchboard etc. 
may need to be exited via a dialing prefix. If successful 141*143, the CONNECT result code 
(numeric or letters) from the remote host server will be received by the client 143. The host will 
send a signal (’Query*) to the client requesting its serial number. If the client does not receive 
the query signal 148 it will abort 149 and repeat the cycle 119. If the client receives the 
’Query’ signal, then the serial number is sent 151. At this point, telecommunications have been 
established and the client-server transaction begins. If the transaction succeeds, the resultant state 
will be "active*, otherwise ’alert’. If. for some reason, a ’NO DIALTONE* event happens 144, 
a delay will occur 147 and the next dial string 141 will be attempted. If the line is ’BUSY* 145, 
then a redial anempt 146 will occur using the same dial string for a predefined number of 
attempts or a telecommunications connection is made, whichever comes first. 

The client to remote host server transaction involves the sending of the computer serial 
number 151 via the telephone company or carrier service. The ’Caller ID* is implicitly received 
by the remote server (typically during the initial telecommunications event known as ’RING*). 
Upon the telecommunications event called ’CONNECT*, the remote host server sends the Agent 
security system client a vendor specific message called ’QUERY’ 148 which in effect tells the 
client to send the serial number. The sending of this serial number 151 involves the server 
acknowledging that it has indeed received 152 and processed 154 the serial number (validating 
it). The client computer will attempt to send this serial number a predefined number of times 153 
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before it gives up (disconnect, cleanup, unhooks port 127,155 and returns to ‘alert- mode 156). 
At this point, the modem disconnects 160. Any other cleanup necessary (such as changing the 

date of the last call to the present) will also be done here 160. Finally, the resultant state will 
be reset to active 161. 

If the computer that called in was not repotted stolen, no further anion with regard to 
the computer system that called in will be taken. If, however, the serial number transmitted to 
the remote host server matches one of the serial numbers on a currently valid list of stolen 
computers, further processing will occur to facilitate the recovery of the missing equipment. Such 
processing includes, but is not limited to. placing either an automatic or manual call to the local 
authorities in the vicinity of the missing equipment or the owner of such equipment. 

Host Identification and Filtering 

Hie Host Identification and Filtering System identifies and filters out unwanted calls from 
Agents. FIG. 2B is a flow diagram of the Host Identification and Filtering program executed 
by host computer 3. Once the security program is executed 26. the voice board waits 27 for the 
ring signal on the telephone line 1. When a ring signal is detected 28, the voice board 2 
acknowledges the incoming call by sending a signal to the telephone company 9B via telephone 
line 1 requesting that the caller ID and the dialed numbers be sent to it. H,e voice board then 
waits until these numbers are received 29 t 30. 

Once the caller ID and the dialed numbers have been received, they are saved to the hard 
disk 31,32. The security program then compares the dialed numbers 33, which provide a coded 
version of the serial number of the client computer 10 (coding scheme explained in detail below), 
against a list of serial numbers stored on the hard disk 4. If no match is found, the program lea 
the phone ring until the client computer 10 hangs up the telephone line 1. In the preferred 
embodiment, the client computer is programmed to hang up after 30 seconds of unanswered 
ringing. However, if a match is found, the security program routes the call to an appropriate 
receiving line connected to a modem 35, which answers the call. 


E ncoding Pf the client computer serial mifnhflf 

Referring to FIG. 4, the serial number of client computer 10 is encoded within the dialed 
numbers it sends to the host 3. In the preferred embodiment of the invention, the client 
computer transmits its six digit serial number 170 to the host via a series of six complete dialed 
phone numbers 172. The first eight dialed digits after the first *1‘ are meaningless. The ninth 
dialed digit ‘N‘ 175, indicates which digit position within the serial number that the tenth dialed 
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number corresponds to. The tenth dialed digit *D" provides the Nth digit of the serial number. 
n»e host computer 3 receives the six complete dialed phone numbers 172 and decodes them 173 

by looking at only the ninth and tenth dialed digits. The client computer serial number 174 is 
thus reproduced. 

For example, in the sequence *800-996-5511*. the only relevant digits are the "11* 
portion. The first *1* indicates that the digit immediate to its right (I) is the first digit in the 
serial number. Similarly, in the sequence *800-996-5526*. the *2* indicates that the number 
immediate to its right (6) is the second number in the serial number. The client 10, in total, 
dials six numbers 172 in order to convey its six-digit serial number to the host. 

In order to accommodate this method of serial number coding, the host monitoring 
system needs to subscribe to sixty different phone numbers. All sixty numbers should have the 
same first eight digits, and only vary from one another with respect to the last two digits. The 
ninth digit need only vary from *1* through *6* corresponding to the six digits within a serial 
code. However, the last digit must vary from *0" to *9". 

Referring to FIG. 4A, the coding system can alternatively be modified such that the 
client computer 10 need only call the host three times to convey its serial number 180. 
According to this coding method, two digits of the serial number 186 would be transmitted in 
each call. Thus, the eighth dialed digit 185 would vary from *r to ’3*, corresponding to the 
three packets of two digits 186 that make up the serial number 180. The ninth and tenth dialed 
digits 186 would vary from *0* through *9*. However, this would require the operator of the 
monitoring system to subscribe to three hundred different phone numbers. 


H PSl PrOCCSSIPg. Auditing and Commu n ication Subsystem 

Referring to FIG. 2C, the Host Processing, Auditing and Communication Subsystem 
receives and transmits information to and from clients. FIG. 2C is a flow diagram of the Host 
Communication program executed by host computer 3. After the host computer 3 is powered 
on 36, communication equipment is instructed to wait 37 for the telecommunication begin signal 
from the client computer 10. The telecommunication equipment acknowledges the begin signal 
by initiating a session to communicate with the client computer 38. The program first checks 
the client computer 39 to establish that it is sending data packets 40, and then receives the 
packets 41. Next, the program determines if the client has any data or commands to be sent to 
the host 42. If not, the session is terminated 43, and the cycle is repeated 37. When all data 
packets have been received, the program permits the host to send data packets to the client 
computer. The program prepares to send data packets 44, and then establishes that there are 
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more data packets to be sent 45 before sending each packet 46. Once all data packets have been 
sent, the program terminates the session 43, hangs up the phone, and prepares to repeat the 
entire cycie 37. Host-side source codes are disclosed in the Appendix in Visual C+ + 
(Microsoft) Code. 

Host Notification Subsystem 

The Host Notification Subsystem notifies the end-users regarding the status of their 
electronic devices. In FIG. 1, various methods of notification such as; electronic mail Nl, fax 
N2, paging N4, and telephone call N3, are depicted. FIG. 2D is a flow diagram of the Host 
Notification program executed by host computer 3. The Host Notification program 
whether there are any pending notification instructions or commands 48. If there are pending 
notifications, the information is retrieved 49. The program then determines the preferred 
preselected notification method 50, and formulates the message to be dispatched 51 according 
to the preselected notification method. This message is dispatched to the end-user 52. After 
dispatching the message, the program repeats the entire cycle 47. Host-side source codes are 
disclosed in the Appendix in Visual C+ + (Microsoft) Code. 

Variations a nd Alternatives 

The above description relates to the Agent security system installed and operating in a 
conventional PC with an Intel 80X86 microprocessor or equivalent and with a conventional MS- 
DOS or PC-DOS operating system. It will be recognized that the system can be modified to fit 
other types of computers including, for example, those sold under the trademark Macintosh. The 
system can easily be modified to suit other types of operating systems or computers as they 
develop in this rapidly advancing an. 

The above system is also intended to be added to existing computers without physical 
alteration. Another approach is to modify the ROM of such computers to contain the Agent 
security system as shown in FIG. 3D. This is generally not considered to be feasible for 
computers sold without the security feature, but is a theoretical possibility. More likely is the 
possibility of incorporating the Agent security system into the ROM of portable computers, 
cellular telephones or other such items when they are manufactured. FIG. 3D above describes 
the loading of the system from such a modified ROM. 
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Tlie description above also assumes that the computer device has a modem connected 
thereto or includes an internal modem. In the future it is likely that telephone systems will be 
digitized, thus obviating the need for a modem. 

The system could also be included in the ROM of a cellular telephone. In this case, the 
program should be designed to hide the outgoing calls from the user by silencing audio signals 
and maintaining a normal screen display. It is also conceivable that portable computers can be 
supplied with integral cellular telephones modified in this manner or with some other 
telecommunication device. It is not clear at the time of this invention exactly which direction the 
field of telecommunications will likely go in the immediate future. The main telecommunication 
criteria for this Agent security system is that the outgoing transmission (wire, radio signal or 
otherwise), be received by a switching mechanism, and contain information that causes the 
switching mechanism to forward the information received to a remote station. Presently, this 
information is a telephone number. But other indicia of the remote station may be substituted 
in alternative switchable communications systems. 


Attached hereto are appendices relating to the following: (1) Description of the 
conventional boot up method; (2) Details of agent installation; (3) Brief description of the 
routines; and (4) Copy of the source code of both the client-side and host-side. The host-side 

source code is in Visual C+ + (Microsoft). The client-side source code is in Tazam Assembler 
Code by Borland. 

It will be understood by someone skilled in the an that many of the details described 
above are by way of example only and are not intended to limit the scope of the invention which 
is to be interpreted with reference to the following claims. 
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APPENDIX 1 - CONVENTIONAI , boot up MPTunp 


Referring to FIG. 3H, an isometric view of a computer disc is shown. This figure illustrates the 

location of the start of user data 162. partition gap 163, boot sector 164. partition sector 165. 
and partition gap 166. 

Referring to FIG. 3, upon hitting the on switch of a personal computer (PC) 53, tbe computer 
first goes through a conventional power-on self-test (POST) 54. At this point the Agent could 
be loaded if ROM-BIOS loading is used 60. POST ensures that all hardware components are 
running and that the central processing unit (CPU) and memory are functioning properly. Upon 
completion of the POST, the next task is to load software onto the random access memory 
(RAM) of the computer. Conventionally, there is a read-only memory (ROM) device which 
contains a boot program. The boot program searches specific locations on the hard disk, diskette 
or floppy disk for files which make up the operating system. A typical disk is shown in FIG. 
3H. Tnce these files are found, the boot program on the ROM reads the data stored on the 
appli;:»ale portions of the disk and copies that data to specific locations in RAM. The first 
portion of the disk boot sector to be loaded is the partition boot sector 55 shown in FIG. 3H as 
165. At this point the load partition boot sector method could be used 61. The partition boot 
sector 165 then loads the remaining boot sector 164 from the disk, namely the operating system 
boot sector 56. Now the Agent could be loaded according to the load operating system boot 
sector method 62. Die operating system boot sector 164 loads into memory a system file, 
normally named IO.SYS on personal computers or IBMBIO.COM on IBM computers 57. Now 
the Agent could be loaded according to the IO.SYS or IBMMIO.COM methods. Each of these 
files is marked with a special file attribute that hides it from the DOS Dir. The IO.SYS or 
equivalent then loads the rest of the operating system, conventionally called MSDOS.SYS on 
MS-DOS systems, and IBMDOS.COM for PC-DOS systems. Next the AUTOEXEC.BAT is 
processed and run 58. Now the operating system is running 59. The Agent security system 

according to the invention is loaded during the boot up process and accordingly is transparent 
to the operating system. 

AEPENPIX II - DETAILS OF AGENT INSTAt I ATfflf u 
Once the TENDER program, which enables the Agent to be installed, has been run and the 
Agent has been determined to be loaded via one, two or three of these alternatives, the system 
is primed and proceeds to attempt to install the Agent security system according to the present 
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state of the computer memory and the instructions given by the programmer. The SNTLINIT 
routine initializes the Agent security system and is passed one of three possible loading options 
via the AX microprocessor register by the calling program (SUBLOADR), which itself was 
loaded on any one of the three enumerated locations described above. The SUBLOADR 
program reads the configuration file (which may be encrypted) that was generated for user input 
The validity of the configuration file is checked at this point to see if it is corrupted or not. If 

for some reason it cannot read the configuration file, it initializes the Agent security system from 
a table of default settings. 


SUBLOADR program then check, ro see if rh, Agent security system is in memory by 
looking fo, me -RPL- signature. SUBLOADRsares the application programme, interface (API) 
•mry point art men determines which version of me security progmm, i( a„ y , ls m memory. 

not m memory, die SUBLOADR program searches the disk for me SNTLINIT routine 
Depending upon me version of me SUBLOADR program. it me, perform n valid!,, check on 

me SNTLlNrr ran,ire. This routine may he a cyclical redundancy check (CRC) of 16 or 32 
bits, a checksum check or a hash count. 


e TENDER program checks me partition boot sector, me operating system boot sector, and 
d» .O.SVS (o, IBMBIO.COM on PC-DOS systems) to * if an, of them be™ bren modified 
20 to contain the SNTUNiT code. A comparison „ me configuration fd, i, made to detonnire if 
the Agem hm already been installed i„ an, „f me ahernativ. locations. If me Agent has alto, 
been installed, me TENDER program takes no action. It men tracks me level of ~ 

that was requested by the uset (i.e. whether one. two or three areas were to he modified). Each 
of these areas has ail me modem related information wrto to i, amongst other use, selected 
settings. At this point it writes the current configuration file to disk. 

Tlie TENDER program then takes a system snapshot of the partition boot sector, the operating 

system boot sector and the IO.SYS or IBMBIO.COM file, validating them, determines and then 

writes this file to disk. It then checks the partition gap between the partitions, calculating the 

number of unused sectors between the valid boot sectors (be they partition or operating system 
boot sectors). 

■mere is elmos. certainly a, Ires, UK of space in me panitinn gap ,63. The Agem security 
system requires only 4K. The SNTLINIT module is usually store,I Imre. If for some reason 
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there is not enough space in the partition gap, or if the data area is physically unusable, the 
TENDER program will pick a suitable cluster of sectors, mark the data area logically as being 
unusable, then store SNTLINU in the cluster of sectors. The TENDER program sets out the 
attributes to system, hidden etc in order to hide the program image. It then calculates the 
physical coordinates of the cluster that was used and writes this information to the configuration 
file. At this point the system is ready to proceed and will be loaded prior to the completion of 
the loading of the operating system regardless of what strategy the programmer has chosen. 

In a manner similar to how viruses reinfect the boot sector 164 of the hard disk drive, the Agent 
security system according to the invention uses such technology to help protea against theft of 
the computer. Other technologies such as system timer programming and communications 
programming are bound to this virus like technology to create a new technology. It should also 
be understood that a security company which handles incoming calls from clients may readily 
redefine the time period between successive calls from a client to its host. 


The system is typically in one of two modes of operation: (1) Waiting until it is time to call/ 
report into the server - "active mode"; (2) Calling or attempting to call the server • "alert mode". 
When the Agent security system changes it mode of operation from aaive to alert mode, the 
aaivation period is reduced to a minimal period such that the Agent calls the host eighteen times 
per second until a successful conneaion is made. The aaivation period in aaive mode is 
predetermined, and likely to be days if not weeks. This shortened aaivation period (time 
between successive calls) is necessary to prevent busy signals and other temporal error conditions 
from precluding transaction attempts. The system will stay in this alert mode until a valid 
transaction has been completed. 

Since MS-DOS and PC-DOS were designed to be single-user, single-tasking operating systems, 
the timer interrupt is used to run the system unattended and automatically in the background to 
provide multi-tasking. Neither the user nor a potential thief would notice this background 
process although registered owners will be aware of its existence. 

In a standard personal computer, routine housekeeping tasks are performed periodic^ , and 
automatically by the CPU without instructions from the user. There is a timer routine which is 
called 18.2 times per second to perform such tasks as turning off the floppy disk motor after a 
certain period of inaaivity. The Agent security system hooks into this timer routine. The total 
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timer routine takes about 55 milliseconds and the Agent security system utilizes a small portion 
of CPU tune during that period; this is limited to less than 0.5% of the total timer routine. This 
is not sufficient time to run the entire security program. Accordingly, the security program is 
mn m small increments with each timer routine. It is important that the security program not 
5 steal enough computer time to be noticed. Otherwise the computer would be noticeably slowed 

and the existence of the program might be suspected. 

Serial port and modem setup routines must be called by the timer interrupt. Once this is done, 
the serial interrupt handler that is being used will handle the details of data transfer between the 
10 client and host systems. Once the system is set up, the serial port interrupt handler does most 
of the work with the timer interrupt acting as a monitor watching the transaction when it happens 
between the client and the server. It analyzes the receive buffer and takes the appropriate actions 
as necessary. The communication portion of the system can handle outgoing and incoming data 
transfers on its own since it has its own access to the CPU via its own interrupt request (IRQ) - 

15 line, typically IRQ3 or IRQ4. Therefore the system can handle the data flow between the client 
machine and the server unattended. 

At the start of its time-slice, the timer interrupt checks the flag, which is set when a user uses 
the modem, in the Agent security system, the InComISR flag byte On Communications Interrupt 
20 Service Routine). If the flag is set, the timer interrupt exits immediately so as not to interfere 
with the progress of any serial communications that may be occurring, therefore not disrupting 
any transaction in progress. If the flag is not set. the timer interrupt routine will check to see 
if the Agent security system is in an error state. If not in error, a flag called TimerlSR count is 
set to indicate that a timer interrupt is in progress. 

25 

A deferred execution function pointer is used to point to the upcoming routine to be executed. 
Just before the timer interrupt routine finishes, it points to the next routine to be executed. 
When the next timer interrupt occurs the routine that was pointed to will be executed. The 
routine must complete in less than 55 milliseconds so that the next timer interrupt does not occur 
30 while the routine is still executing. 


Attached to the PC’s system bus are communications pons, all of which are optional and 
typically called COMI. COM2. COM3, COM4 for the first four pons. It is unusual to have 
more than four serial ports in a PC that is using only MS-DOS or PC-DOS as its operating 


SUBSTITUTE SHEET 




system. The Agent security system also requires that a modem be connected to one of these 
serial ports so that calls can be made to a remote host server using normal telephone lines or 
dedicated telecommunications lines. When alerted 118, the Agent security system needs to be 
able to find an available serial port 119-122, once it does so it checks to see if a modem is 
attached 128-129 and tries to initialize it by sending it an initialization string 132. If successful, 
it checks for a dialtone, then tries to make a quiet call to a remote host server 141. Once the 
server has been connected, the client machine attempts to initiate a data transaction with the 
server so it can send its serial number and other data defined to be part of the transaction 151 
TTie server is configured to connect at 2400 bps with no parity, 8 data bits and 1 stop bit. Thus 
the client matches this configuration. This allows a high connection reliability. 

APPENDIX III - DESCRIPTION QF ROUTINES 


SNTL1NIT: 

After this routine has been loaded high into conventional memory 67 and execution has been 
passed to it, the machine state is saved 68. Conventional memory is the first 640 kilobytes 
(655,360 bytes) of memory on an Intel 80X86 compatible computer for example. Registers 15 
that are affected by this routine are saved on the stack, 'saving the machine state'. The suck 
referred to is a UFO structure, where the LIFO stands for 'last in first out'. It is where you can 
temporarily save the contents of CPU registers so that you can restore their initial values. 

The microprocessor register AX is used to pass one of three values to the SNTLINIT routine. 
Depending upon which of the three values are passed to this routine, three different courses of 
action will be uken. Each course of action describes how the program will initialize itself. To 
summarize, this routine initializes the Agent security system from either the partition boot sector 
55, the operating system boot sector 56 or the input/output module of the operating system 57. 

If the microprocessor register AX contains the value 0: 

The partition sector 165 is loaded into memory (which has been overwritten on the disc 
with the boot sector version of the SUBLOADR module). On execution of this code, the 
SNTLINIT is called. 
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If the microprocessor register AX contains the value I: 

The boot sector 55 of the hard disk (which has been overwritten on the disc with 
the boot sector version of the SUBLOADR module) is loaded into memory. 

On execution of this code, the SNTLINIT routine is called. 

If the microprocessor register AX contains the value 2: 

The first sector of lO.SYS/IBMBIO.COM 57 (which has been overwritten on the disk 
with the 10 version of the SUBLOADR module) is loaded into memory. 

This routine then tests to see if it is in memory already by checking for the *RPL’ signature <9, 
84, 96, 108 located at the start of the address for Interrupt 2FH. If it is in memory, this routine 
exits 77 (to avoid loading more than one copy of the program into memory). If it is not already 
in memory, then it points (hooks) Interrupt 2FH to an internal routine 71, and does the same 
with Interrupt EAH 72. It then hooks Interrupt 8 after saving the original Interrupt 8 vector to 
an internal memory location (internal to the Agent security system). 

The machine state is restored 74 and the routine exits by jumping to memory location 
OOOO.TCOOH for the partition table and boot sector execution paths or 0070:0000H for the 10 
execution path 75, 76. 

SNTLAPI: 

This API is for use by an external program. It has three functions as follows: 

1. Get state of Agent security system. (Checks to see if Agent is already installed.) 

2. Set state of Agent security system. 

3. Set serial number of system. 

SWAPINT: 


Swaplnt stores the existing interrupt vector by replacing the vector for the interrupt number in 
the CPU register BX with the new vector pointed to by the CPU register pair DS:CX after it 
stores the current vector at a location pointed to by the register pair DS:DI. If the CPU register 
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DI contains 0 then the vector for the intemipt number contained in the CPU register BX is not 
stored. 

DELAYFUNC: 

This is a delay function used for hardware timing purposes. This routine is used in FIG 3F 
block 125. 

TIMER1SR: 

Intemipt 8h/ICh is the System Timer Interrupt which executes 18.2 times per second 117 and 
is used to do the following: 

1. Call the old system timer intemipt. 

2. Check to see if a communications intemipt is occurring, exiting immediately if 
so. 

3. Save affected CPU registers. 

Check for an internal state error, exiting immediately if so. 

5. Call the state routine. 

6. Restore the saved CPU registers. 

ACnVEROUTINE: 

TTie ActiveRoutine checks to see if the activation period has been exceeded 118. By activation 
period we mean a period of time that has elapsed since the last valid security call. This period 
of time is set during the transaction to the server, but is initially set to approximately 7 days. 

CHECKNEXT PORT. 

This is a check for valid serial ports, d involves checking a table of serial port addresses 120 
and then testing them to ensure their functionality 122. If a valid serial port cannot be found, a 
sleep state is entered 125. Upon awakening, this routine is repeated 119. 
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DELAYLOOP: 


This delay is used for communications delays due to busy signals or no dial-tone and other 
problems that can affect the communications link. 


PORTFINDINIT: 


This procedure calls the previously described CHECKNEXTPORT function 118,119 in its quest 
for a valid serial port to initialize. On finding a valid serial port, it stores the ports address, and 
its corresponding interrupt vector. 

PORTFIND: 

This is a check to see if the serial communications port is in use 123 by dynamically testing the 
registers in the universal asynchronous receiver - transmitter (UART) that is associated with the 
current serial port address. Specifically, it tests the Interrupt Enable Register of the UART. This 
UART register is read into the AL register of the CPU. and if any of the bits are set Gogical 1), 
then the port is in use, otherwise the port is idle. It also tests the interrupt enable bit of the 

modem control register in the UART. If the bit is not set Gogical 1) then the port is idle and 
available for use. 


Each serial port in the port table 120 is checked until either a valid one is found 123, or the 
routine goes to sleep 125. If a serial port is found 123, this routine will decide whether or not 
to initialize the UART using the system BIOS. Interrupt 14H routine, or bypass this routine, 
programming the UART registers directly. If an error occurs during this process, the routine is 
exited, and CHECKNEXT PORT is invoked. 

If the serial port is successfully initialized 128, 129 to the predefined bit rate, parity, word size, 
number of stop bits etc., the UART is cleared of any pending errors. The serial port buffer is 
flushed (emptied), so there is no chance of old data being picked up a second time. The state 
flag that the timer interrupt checks on each clock tick is cleared, as interrupt driven 
communications have not yet been set up. The appropriate interrupt number is selected and the 
old interrupt vector is swapped with the new one by calling SWAP1NT. The statuses RTS 
(Request to Send) and DTR (Data Terminal Ready), are enabled in the UART. The 8259 PIC 
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is then unmasked, interrupts are enabled in the UART, then the hardware interrupts for the CPU 
are enabled. Then this routine exits. 

MODEM FI NDDELAY: 

5 

This procedure sets the [state-routine] function pointer to point to the MODEMFINDINIT 
routine, delaying execution until the next interrupt. 

MODEMFINDINIT: 

10 

This routine points to a string to send to the modem, then calls the COMTRANSINIT routine. 
MODEMINUINTT: 

15 This procedure tries to initialize the modem 130 with an appropriate initialization string from a 
table of initialization strings 131, and will try until either the modem is initialized or there are 
no more initialization strings in the table to try. The COMTRANSINIT routine is called from 
within this procedure 132-136. 

20 MODEMINIT: 

This procedure checks the state of the transmission, and checks for incoming data by calling the 
COMTRANS and COMTRANSCHECK routines 132. This procedure ends by jumping to a jump 
table which points to the next appropriate routine. 

25 

MODEMCALLIN1T: 

This routine attempts to place a call 137, 138 by selecting a telephone number 139 (and its 
appropriate prefix if necessary) from a table of dial strings 140. It will continue to do so until 
30 either a call is completed 148 or there are no more initialization strings in the table to try. If a 
call could not be made 144 then the CLEANUPROUTINE and ERRORROUTINE procedures 
are to be run during the next statefs) (Intemipt 8 system timer ticks) 155. 
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d '“ ki ““ ° f * ending if i, is complere. TOs proc*,,. is 

csllsd from wishin ft. MODEMCALLINIT rourine. I, in run, calls ft, MODEMCALL 
procedure. 


MODEMCALL: 


This routine checks <h. sure offte transmission. ending if i, is income... „ aiso checks to see 
if data has been received yet or not. 


MODEMCONNECTIN1T: 


Tl.fr procure ..ifr for s query fr 0In ft, hos , smver (x ^ ^ ^ 

"’ tl ' 151 0,1 *• “"*"«■ If ceil could „ he 

m-e to ft. CLEANUPROUTINE and ERRORROUTINE procedums .55 ase he run dun„g 
the next state(s) (Interrupt 8 system timer ticks). 


MODEMCONNECT: 

This routine checks the state of the transmission, ending if the 
CLEANUPROUTINE: 


transmission is incomplete. 


fr routme reseo the Agent secure sys.em 155.15« (somesimB refmred ,o as Seminal in ft. 
source code, hack to a known state (ACTIVE), zeroes the tftnsmissionsft,. flags, flushes the 
UART buffer Then i, disables a., internets, restores rhe old communications inwrup, service 

r im ~ ■■ *" - - ■— •— p—, » me 

CLEANUPROUTINE (to be rim during the next Interrupt 8). 

ERRORROUTINE: 


The Agent security system state is set to SNTL STATEERROR (the Agent 
in an error state). 


security system is put 
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COMISR: 


The imemipt service routine used to control one of the systems serial communications ports (and 
one of the Interrupt Request lines) in order to provide telecommunications services to the Agent 
security system. It calls the SENDBYTE and BUT PUTCHAR procedures. It handles the low- 
level details of sending and receiving data during the transmission when it hap pens 


SENDBYTE: 

This procedure attempts to send a byte of data to the referenced serial communications port (a 
variable containing the port address). This routine is used in 141, 151. • 

COMTRANSINIT: 

This procedure initializes a transaction between the Agent security system and the modem. A 
transaction involves sending a string of data 151 to the modem to be sent via telecommunications 
link to a host server, which after receiving the string of data, in return, sends back a string of 
data to the client machine 152 containing the Agent security system. The returned string can then 
be analyzed by the Agent security system to determine what anion should be taken next. 

COMTRANS: 

This procedure handies much of the technical details regarding the maintenance of the transanion 
between the Agent security system and the host server 129, 134, 135, 143, 144, 145 , 152 , 157 . 

It is primarily responsible for error handling such as incomplete transanions and stalled 
transmissions. 

COMTRANSCHECK: 


Checks the results of a completed transanion between the host server, and the client security 
system against a table of strings. Three possible outcomes are allowed for: 

I. If the incoming data has not been completely received, the carry flag of the 
client CPU is set (logical 1). 
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2. If the function timed out (exceeded a time threshold value) and no Agent security 
system internal string matched the string received from the host server, the carry 
flag of the client CPU is set, and the AH register is zeroed. 

3. If a matching string was found, the carry flag on the client CPU is reset (local 
0), and the AL register contains a value that matches the internal table entry. 

BUFFLUSH: 

Flushes the internal serial port communications receive buffer on the client machine (containing 
Agent security system). 

The buffer is a circular queue. A circular queue is a data structure that has what is called a head 
pointer and a tail pointer where the head pointer chases the tail pointer around the queue, never 
really catching it, but processes each byte of the data stored in it. As a byte of data is received 
by the serial port, it is latched and must be put into a buffer (an area of memory reserved for 
this purpose) before the next byte arrives (which overwrites the existing latched byte). 

Whenever a communications session starts, it is important that both the input and output buffers 
are flushed so that all new incoming and outgoing data are not contaminated by old data still 
sitting in the buffer. 

BUF_GETCHAR: 

Gets a character from the internal serial port communications receive buffer, removing it from 
the buffers as it does so. 

BUFPUTCHAR: 

Adds a character to the internal serial port communications receive buffer. Increments the head 
pointer, checking to see if the buffer is full, and setting the carry flag it if it is. 
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BUF_INC_PTR: 
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Increments the receive buffer pointer assigned to the client CPU register SI, and wraps it if 
necessary. 

5 

INT2FVECT: 

Reserves the required space at the top of conventional memory for the RAM resident portion of 

the Agent security system. The undocumented Interrupt 21 H, Function 4AH, SubFunction 06 
10 is used to do this. 


15 
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45 


APPENDIX TV . flOURCF rnnFft 

Electronic Article Surveillance System 
Source Code for Client-side 


(Tazam Assembler Code by Borland) 

.... 

;* Copyright (c) Absolute Software 1994, 1995 

;• SENTINEL.INC - Sentinel definition file 
;• PURPOSE: 

directives or INCLUDE, all constants, macros, and 

'* by the Sentinel Module. 

; * 

;• HISTORY: 

;• 1995.09.05 - CCOTI 

i* See taken fro " buil «* 63a. 

/* 

;* NOTES: 


t * *********************** 




IDEAL 

parsing mode. • Set 

JUMPS 

local jumps. • Allow 

P2S6N 

instructions only. * Allow 286 

INCLUDE "UART.INC" 

constants. • RS232 UART 

; Enable Debugging. 

Debug ■ 0 
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; Sentinel Signature. 
SNIL S1C1 
SNTL~SIG2 


» OFDFEh 
- OEFCDh 


; Sentinel Vereion number. 

SNTL_VERSION ■ 0 • 256 4 100 


; Cond itional compilation ewitchee. 
EMIT ON * 0 
IODELAY ON - 1 
TWODSKHKS • 0 
bit disk sccsss 


; enables debugging. 

; snablss io delays. 

; to maintain deflection with 32- 


; Timing £ Delays. 

PO*T_LOOP DELAY - is 
DIAL_LOOP~DELAY « 18 * 5 
5 seconds " 


! 1 second delay 

; provide an inter-dial delay of 


PREINT13 TIMEOUT - 
the system. ” 


18 


120 


Timeout before sentinel hook 


' negxc wumbers and Fixed Offsets 
DATA SECTOR OFFSET - 130h 
write " 


; MUST Be Sector aligned for diek 


> Debug macros 
MACRO EMIT ch 
IF EMIT ON 
PUSH - 
MOV 
CALL 
POP 
ENDXF 
ENDM 


AX 

AL,ch 

PutCha 

AX 


(see Intl3ISR) 


MACRO IODELAY 
IF IODELAYON 

40 ENdS 0, ' °«l»yP«nc 

ENDM 


45 


50 


Sentinel*State°conatant.! ,ITH ° UT UPDATINC SUBLOADR.h- 

SNSTACTIVE « 0 

SNSTALERT . 1 

SNSTCALLING - 2 

SNSTCONNECT - 3 

SNSTERROR . 4 

SNTL_STATE ERROR ; Ch#c,t for error: >- 


55 


60 


yurinc-if 9 »®ttings for <xmit st 
XMIT_RECEIVE_BIT « 00000001b 

XMITSENDBIT . 00000010b 

. o55SlJ2 

XMIT_RECElVE_AWK_BIT ■ 00001000b 


flags>. 


IFDEF Testing 

RECEIVE TIMEOUT 
ELSE 

RECEIVE TIMEOUT 
ENDIF 


OFFFFh 
18 * 40 


test timeout huge 
timeout — 40 seconds. 
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55 


60 


ticks/second) 
TM1SEC - 18 

* 1 

TM2SEC 

- 18 

* 2 

TM3SEC 

- 18 

* 3 

TM4SEC 

- 18 

* 4 

TKSSEC 

« 18 

* 5 

TM6SEC 

• 18 

* 5 

TM2SEC 

• 18 

* 5 

TK10SEC 

- 18 

* 10 

TM30SEC 

• 18 

* 30 

TH40SEC 

- 18 

* 40 

TM1MIN 

• 18 

* 60 

TM2MIN 

» 18 

* 60 * 2 

SNMDMFINDTO 

00 

H 

i 

* 5 

saconds 

SNKDHINITTO 

- 18 

* 5 

-S seconds 
SNMDMDLTO 

- 16 

* 40 

seconds 

SNRESPONSETO 

• 18 

* 40 

seconds 

SNPWROPDLYTO 

- 18 

* 10 


hooking int 2F -10 ••conde 


SNCAIXNA 


0 

SNPRTSRCH 


1 

port 



SNMOKSRCH 


2 

port 



SNMDMZNXT 


3 

SNKDMPD 


4 

modem 



SNKOMDL 


5 

SNWTCON 


6 

to server 



SMWTENQ 


7 

SNWTACK 


8 

SNWTNCD 


9 

from server 


SNCALLPASS 

■ 

10 

SNCALLFA1L 

■ 

11 


STRUC RXZCM 

rxxstate 

DW 

7 

rxxtmr 

DW 

7 

rxxlrc 

DB 

7 

LRC 

rxxpktlen 

DW 

7 

rxxbytcnt 

DW 

7 

packet 

rxxtype 

DB 

7 

rxxstype 

DB 

7 

rxxbufp 

DW 

BYTE PTR 7 

ENOS RXZCM 

STRUC TXZCM 

txxstate 

DW 

7 

txxnxtst 

DW 

7 

txxtmr 

DW 

7 

txxpkttyp 

DB 

7 


; timer values (based on 18 


; timeouts 

/ modem find timeout -5 
; modem initialization timeout 
; modem dial out timeout *40 
; server response timeout -40 
; power-up delay before 

; call status 
; no attempt yet 
; searching for an available 

; searching fo a modem on the 

; initializing modem 
; sending predial string to 

; sending dial string to modem 
; waiting for modem to connect 

; waiting for ENQ from server 

; waiting for ACX from server 

? waiting for next-call-date 

; call passed 

; call failed 


; receiver structure 
; receiver state 
; receive timer 
; received packet running-sum 

; packet length to receive 
; received bytes in current 

; packet type 
; packet subtype 
; pointer to receive buffer 


; transmit structure 
; current transmitter state 
; next transmitter state 
; transmit timer 
; packet type to transmit 


SUBSTITUTE SHEET 






- 31 - 


txxtxing DB 0 
flag 

txxnakcnt DB 0 

txxenqcnt DB 0 

5 txxlrc DB ? 

LRC 

txxpktlen DW ? 
transmit 

txxdatcnt DW ? 

10 transmit 

txxtyps DB ? 

txxstype DB ? 

txxbufp DW BYTE PTR ? 

ENDS TXZCM 

15 

CMTXDATPKT - 0 
CMTXMDMPKT « 1 
CMTXDLACK - 2 
20 CMTXDLNAX - 3 

CMTXDLENQ - 4 
CMTXDLEOT • 5 


25 DLSTX ■ 2h 

DLETX - 3h 

DLEOT ■ 4h 

DLENQ - 5h 

DLACK ■ 6h 

30 OLNAX - 15h 


SNSERVER - 80h 

35 

SNNEXTCALL - Oh 
SNOISABLE - lh 


40 SNSNTLSIZE « 11 


; transmission in progress 

; transmit NAK count 
; transmit ENQ count 
; transmit packet running-sum 

; remaining data bytes to 

; index of next data byte to 

? packet type 
; packet subtype 
; pointer to transmit buffer 

; transmit packet types: 

; data packet 
; modem packet 
• ; datalink ACK 

; datalink NAX 

; datalink ENQ 

; datalink EOT 

; protocol control characters 
; STX character 
/ ; ETX character 

; EOT character 
; ENQ character 
; ACK character 
; NAK character 

; protocol message types 
; message from the server 

; protocol message subtypes 
; next call packet 
; disable sentinel packet 


; Sentinel sector size 
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;* Copyright (c) Absolut* Software 1994 , 1995 

;• SNTLAPI.INC 

; • 

;* Contain, global label, for the .pi module. 
;* HISTORY; 

;* 1995.09.05 - COOTI 

Created. 






SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 


GLOBAL SntlAPI 

: FAR 

GLOBAL Swaplnt 

: NEAR 

IF IODELAY_ON 


GLOBAL DelayFunc 

END IF 

: NEAR 

GLOBAL QnpDate. 

: NEAR 

ENDS 
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Copyright (c) Absolute Software 1994, 1995 
SNTLBUFF.INC 

Contains global labels for the,buffer module. 
HISTORY: 

199S.09.05 - CCOTI 
Created. 


SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 

GLOBAL buf_flush 
GLOBAL buf^getchar 
GLOBAL buf_putchar 
GLOBAL buf~inc_ptr 

ENDS 


NEAR 

NEAR 

NEAR 

NEAR 
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;* Copyright (c) Absolute Software 1994 , 1995 
;• SNTLCOMM.INC 


{I Contain » *** global labels for the comm module. 
;* HISTORY: 

;* 1995.09.05 - CCOTI 

Created. 










SEGMENT SNTL_$EG BYTE PUBLIC 'CODE' 

GLOBAL cmftxnak 
GLOBAL cmftxenq 
GLOBAL cmfprpndm 
GLOBAL cmftx 
GLOBAL cmfpack 

ENDS 


NEAR 

NEAR 

NEAR 

NEAR 

NEAR 
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;* Copyright (c) Ab.olute Software 1994. 1995 

;* SNTLCOMV.INC 
• * 

;* Contain, global lable for the Comm ISR. 


/* HISTORY: 

1995.09*05 - CCOTI 
'* Created. 


'******************************' 


*****************4 


SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 
GLOBAL cmfier 
ENDS 
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* * 

t 




• m 

• • 

Copyright (c) Absolute 

Software 1994, 

1995 

. * 

. * 

SNTLDATA.INC 



• • 

PURPOSE: 



• • 

• * 

Contains the global 

labels for the 

data segment. 

* * 

HISTORY: 



• * 

1995.09.OS - CCOTI 



* • 

7* 

«*( 

Created. 





SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 

GLOBAL sngstftn : WORD 

20 GLOBAL Sentinel_state : BYTE 

;Scatch vara to store the current port info being used. 
GLOBAL sngmdmprt : WORD 


GLOBAL sngmdmprtint 
23 GLOBAL angmdmprtadd 

;Previous ISR vectors. 

GLOBAL sngprvtmr 
GLOBAL sngprvcom 
30 GLOBAL sngprvdskl 

IF TWODSKHXS 

GLOBAL sngprvdsk2 
GLOBAL sng2dskhks 
35 GLOBAL sngdakakip 

ENDIP 

GLOBAL sngprvint2f 

40 ;ROR'd to limit updating the 

ActiveRoutine). 

GLOBAL cycle var 

GLOBAL win^flag 
45 GLOBAL win~vm 

GLOBAL sngincmisr 

GLOBAL send_buf_len 
50 GLOBAL send~bufjptr 

GLOBAL sngcomcnt 
GLOBAL sngcomerr 
GLOBAL TimerISR_count 
55 GLOBAL sent count 

GLOBAL rece!ved_count 
GLOBAL sngflcnt* 

GLOBAL sngclst 
GLOBAL sngcomhk 
60 GLOBAL sngsuspend 

GLOBAL sngdlytmr 
GLOBAL sngint2ftnur 
GLOBAL sngprtdlytmr 
GLOBAL sngdefleet 
65 GLOBAL dkgcyl 


: WORD 
: WORD 


DWORD 

DWORD 

DWORD 


: DWORD 
: BYTE 
: BYTE 


: DWORD 

real-time clock once every 16 ticks (see 

: WORD 

: BYTE 
: BYTE 

: BYTE 

: WORD 
: WORD 

: WORD 
: BYTE 
: WORD 
: WORD 
: WORD 
: BYTE 
: BYTE 
: BYTE 
: BYTE 
: WORD 
: WORD 
: WORD 
: BYTE 
: WORD 
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5 

GLOBAL dkgsctr 

GLOBAL sngapifl 
GLOBAL angpwdl 

GLOBAL angpwd2 


: BYTE 
: BYTE 
: WORD 
: WORD 


;Sentienl Settings. 




GLOBAL modem default port 

: WORD 

10 

GLOBAL port table 
PORT_TABLE_SIZE ■ 4 


: WORD 


; Disk location of data 

sector. 

15 

GLOBAL data_cyl sect 
GLOBAL data_hea3 drive 
GLOBAL Bngdskwrt~ 

: WORD 
: WORD 
: BYTE 

20 

; Output string*. 




GLOBAL init atr nun 
GLOBAL init~»tr~t*ble 
INIT_STR_TABLE_SIZE ■ 

6 

: WORD 
: WORD 

25 

GLOBAL dial atr num 
GLOBAL diai“atr“table 

dial_str_table_size ■ 

S 

: WORD 
: WORD : 

30 

GLOBAL dial_numbar 


: BYTE 


35 


40 


45 


50 


GLOBAL sn_packet start 
GLOBAL stx_byte ~ 
GLOBAL lsb~length byte 
GLOBAL msb~length~byte 
GLOBAL sn_text start 
GLOBAL text type 
GLOBAL text~sub type 
GLOBAL «n_data_start 
GLOBAL sngsernum 
GLOBAL now date 
GLOBAL now~year 
GLOBAL now^month 
GLOBAL nowaday 
GLOBAL now_hour 
GLOBAL now minute 
GLOBAL sn_3ata end 
GLOBAL etx byte 
GLOBAL lrc~byte 
GLOBAL sn_packet_end 
GLOBAL sngsernum_str 
GLOBAL sngsernum~8tr len 
GLOBAL sngdatalen " 


UNKNOWN 

BYTE 

BYTE 

BYTE 

UNKNOWN 

BYTE 

BYTE 

UNKNOWN 

BYTE : i 

UNKNOWN 

BYTE 

BYTE 

BYTE 

BYTE 

BYTE 

UNKNOWN 

BYTE 

BYTE 

UNKNOWN 

UNKNOWN 

BYTE 

BYTE 


GLOBAL rx 
GLOBAL tx 


: AX 2 CM 
: TX2CM 


; Result tables. 

GLOBAL command_result table len 
GLOBAL command~result~table“ 


GLOBAL mdm_init_result table len 
GLOBAL indm_init~result2table~ 

GLOBAL dial_result_table len 


5 

4 


BYTE 

UNKNOWN 

BYTE 

UNKNOWN 

BYTE 
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GLOBAL dial_result_table 

GLOBAL connect_reault_table len 
GLOBAL connect~result”table~ 

; Modem and result string pool. 
GLOBAL stringjpool 

GLOBAL modera_find_str 

; next call date 

GLOBAL next_call_date 
GLOBAL next^call^year 
GLOBAL next~call~month 
GLOBAL next~call~day 
GLOBAL next~call~hour 
GLOBAL next^calljninute 

GLOBAL sngrxbufhd 
GLOBAL angrxbuftl 
GLOBAL sngrxbufst 
GLOBAL sngrxbuf 
GLOBAL sngrxbufend 

GLOBAL nextcall_text 

GLOBAL sngtxindex 
GLOBAL angtxbufst 
GLOBAL sngtxbuf 
GLOBAL sngtxbufend 


; Result jump tables. 

; Table for ModemFlnd 
GLOBAL find_jump_table 

; Table for Modemlnit. 
GLOBAL init_jump_table 

; Table for dial results. 
GLOBAL dial_jump table 

GLOBAL cnct_jump_table 

ENDS 


: UNKNOWN 

: BYTE 
: UNKNOWN 


: BYTE : 127 
: UNKNOWN 


: UNKNOWN 
: BYTE 
: BYTE 
: BYTE 
s BYTE 
: BYTE 

: WORD 
: WORD 
: UNKNOWN 
: BYTE 
: UNKNOWN 

: BYTE : S 

: BYTE 
: UNKNOWN 
: BYTE 
: UNKNOWN 


: CODEPTR 


: CODEPTR 


: CODEPTR 
: CODEPTR 
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;• Copyright (c) Absolute Software 1994, 1995 

;* SNTLI13V.INC 

;* 

;* PURPOSE: 

;* Contains INT 13 ISRs and disk deflection routines. 
;* HISTORY: 

;* 1995.09.05 - CCOTI 

• * Created. 

;* 

••****•«*• 

SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 

GLOBAL load time : WORD 

GLOBAL IntlJlSR : PAR 

ENDS 
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*•**#•*•*• 

;* Copyright (c) Absolut* Software 1994, 199S 
;* SNTLI2rv.INC - SNTLI2FV.ASM global lables. 

;* PURPOSE: 

• • 

;* HISTORY: 

;* 199S.09.0S - CCOTI 

>•* Created. 

• * 

;* NOTES: 


SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 

GLOBAL Int2FVect : FAR 

GLOBAL snfint2f : FAR 

ENDS 
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********** 


»•••«•*•*•**< 


r ************** 


********4 


Copyright (c) Absolute Software 1994 , 1995 
SNTLJTBL.INC 




Contains the global labels for the jump table. 
HISTORY: 

1995.09.05 - CCOTI 
Created. 


************ 


>*••*••••** 


*************** 


^***»******* 




SEGMENT SNTL_SEC BYTE PUBLIC 'CODE' 

GLOBAL JumpTable 

GLOBAL cleanup 

GLOBAL find ok 
GLOBAL find~timeout 

GLOBAL init ok 
GLOBAL init^error 

GLOBAL dial server 
GLOBAL dial~busy 
GLOBAL dial~error 
GLOBAL dial~no carr 
GLOBAL dial_no~tone 

GLOBAL cnct_ack 
GLOBAL cnct enq 
GLOBAL cnct error 
GLOBAL cnct~eot 
GLOBAL cnct“nak 
GLOBAL cnct~resend 

GLOBAL cmrxpktto 

ENDS 


: NEAR 

! NEAR 

NEAR 

NEAR 

NEAR 

NEAR 

NEAR 

NEAR 

NEAR 

NEAR 

NEAR 

NEAR 

NEAR 

NEAR 

NEAR 

NEAR 

NEAR 

NEAR 
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;• Copyright (c) Absolute Software 1994, 1995 

;• SNTLSTRT.INC 
• * 

;* Contain, global l.bl.. for the atring table module. 
»* HISTORYs 

;• 1995.09.05 - COOTI 

Created. 


/ 

;*•****•» 








SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 
GLOBAL ComTransCheck 
ENDS 
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;* Copyright (c) Absolute Software 1994, 1995 

?* SNTLTIMR.ASM 

• • 

;* Contains the global labels for the TimerlSR. 

;* HISTORY: 

1995.09.05 - CCOTI 
;* Created. 


SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 


GLOBAL tmfisr . 

GLOBAL ActiveRoutine ; NEAR 

GLOBAL snfsnrst NEAR 

GLOBAL Modetnl nit I ni t NEAR 

GLOBAL ModemCalllnit • NEAR 

GLOBAL ModemFindlnit ; NEAR 

GLOBAL snftxchkin NEAR 

GLOBAL snfgetpkt . NEAR 


ENDS 
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5 


10 


15 


UART.INC 


A«m header file for programming the UART chip. 


UART memory port base addresses 
COM 1 ADDRESS equ 3 F 8 h 

COM 2 ADDRESS mqu 

COM 3 ~ADDRESS equ 

COM 4 _ADDRESS 


2 F8h 

3 E 8 h 

2 E8h 


; UART port interupt* 
COM1 INTERUPT equ 
COK 2 *IKTERUPT equ 
COM 3 ~INTERUPT mm 
COM 4 INTERUPT mqu 


04 h 

03 h 

04 h 

03h 


20 


25 


30 


; UART memory port offset* 
THR equ 0 . 

W)R equ 0 j 

BROL equ 0 ! 

port). 

IER equ 1 

BROH equ 1 

Port). 

IIR equ 2 

LCR equ 3 t 

MCR equ 4 J 

LSR equ 5 

MSR equ 6 ' 


Transmitter holding register 
Receiver data register (in). 
Low byte, baud rate divisor 


(out). 
(alternate 


Interupt enable register 

High byte, baud rate divisor (alternate 


Interupt ID register* 
Line control register. 
Modem control register. 
Line status register. 
Modem status register. 


; UART memory bit masks 


; Interupt enable register 

re*® ...... * • 


35 

IER_RDR FULL 
IER~THR~EMPTY 

Ier~data_err 

Ier~msr_changed 

' • 

equ 

equ 

equ 

equ 

00000001 b 

00000010 b 

00000100 b 

00001000 b 

40 

; Interupt id register. 
iir_mult_int 

equ 

00000001 b 

45 

iir_int_id_mask 
. iir_msr“chanced 

IIR_THR EMPTY 

iir”rdr”full 

iir“data_err 

equ 

equ 

equ 

equ 

equ 

00000110 b 

00000000 b 

00000010 b 

00000100 b 

00000110 b 

50 

; Line control register. 
LCR CHAR MASK 

LCR CHAR 5 
LCR~CHAR“6 
LCR~CHAR “7 
LCR~CHAR~8 

equ 

equ 

equ 

equ 

equ 

00000011 b 

00000000 b 

00000001 b 

00000010 b 

00000011 b 

55 

lcr stop bit mask 

LCR 1 ST 0 P~BIT 
LCR~ 2 STOP~BIT 

equ 

equ 

equ 

00000100 b 

00000000 b 

00000100 b 

60 

65 

lcr_parity mask 

LRC_NO PARITY 
LRC~ODD PARITY 

lrc'eveR parity 
lrc_mark“parity 

LRC_SPACE PARITY 

equ 

equ 

equ 

equ 

equ 

equ 

00111000 b 

00000000 b 

00100000 b 

00110000 b 

00101000 b 

00111000 b 
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lcr_break mask 

LCR BREAK OFF 
LCR - BREAK - ON 


equ 

equ 

equ 


LCR_PORT MASK 

LCR_NORMAL PORT 
LCR~ALT PORT 


•qu 

equ 

equ 


Modem control register 
MCR DTR ON 

mcr~rts~on 

MCR USER OUT 1 

mcr~enablb int 
mcr“uart test 


equ 

equ 

equ 

equ 

equ 


; Line statue register. 
LSR rdr pull 
lsr"OVER err 
lsr'parity err 
lsr framing err 
lsr~breax 
lsr“thr empty 
lsr~tsr~empty 


equ 

equ 

equ 

equ 

equ 

equ 

equ 


Modem status register. 
MSR_CTS CHANGED 

msr_dsr~changed 
msr ri changed 
msr^dcd changed 
msr~ctr~active 

MSR_DSREACTIVE 
MSR^RI ACTIVE 
MSR^DCD ACTIVE 


equ 

equ 

equ 

equ 

equ 

equ 

equ 

•qu 


•45 - 

01000000 b 

00000000 b 

01000000 b 

10000000 b 

00000000 b 

10000000 b 


00000001 b 

00000010 b 

00000100 b 

00001000 b 

00010000 b 


00000001 b 

00000010 b 

00000100 b 

00001000 b 

00010000 b 

00100000 b 

01000000 b 


00000001 b 

00000010 b 

00000100 b 

00001000 b 

00010000 b 

00100000 b 

01000000 b 

10000000 b 


;NOT CONFIRMED!I I 


; BIOS a«rvic*s. 

bios_init port 
bios'writI port 

BIOS - READ PORT 
BIOS - STATUS PORT 


•qu OOh 
•qu Olh 
•qu 02 h 
•qu 03 h 


; BIOS initialisation valuei 
8 IOS_ 7 BITS eqi 

BIOS 8BITS «oi 

BI 0 S~ 1 ST 0 P 
BIOS 2 ST 0 P 


00000010 b 
0000001 lb 
00000000 b 
00000100 b 


BIOS_PARITY MASK 
BIOS NO PARITY 
BIOS - ODp PARITY 
BIOS - EVEN PARITY 


•qu 

•qu 

•qu 

•qu 


00011000 b 

00000000 b 

00001000 b 

00011000 b 


BIOS BAUD MASK 
BIOS llO BAUD 
BIOS - 150 — BAUD 
BIOS - 300 — BAUD 
BIOS - 600 BAUD 
BIOS - 1205 BAUD 
BIOS - 2400 - BAUD 
BIOS - 4800 - BAUD 
BIOS - 9600 - BAUD 


•qu 11100000b 
•qu 00000000b 
•qu 00100000b 
•qu 01000000b 
•qu 01100000b 
•qu 10000000b 
•qu 10100000b 
•qu 11000000b 
•qu 11100000b 
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;• Copyright (c) Absolut* Softwsr* 1994 , 1995 

; • 

;• SENTINEL.ASM - S*ntin*l Initialization and TSR Cod* 

;• PURPOSE: 

;• Thi* ie th* main build file for th* S«ntin«l modul*. 

;* HISTORY: 

;• 199S.09.05 - CCOTI 

Sourc* tak*n from build 63 a and broken up into 
separate source * 

!* ■ ubdir « ct °*y OldFil*. for the original 

t dniLINIT*ASH 

;• 

........... 

•••••••••• 

IDEAL 

include “SENTINEL.INC“ 

t • • * 

»«• * 

* **********************************************#****»»* A * A — 
********** *** 

;* 

;* SNTL SEC - Resident segment. 

?* 

#**************************************®*®* #####gr ^^^*_ 

**•*•*•**• ***** 

SEGMENT SNTL_SEG PARA PUBLIC ‘CODE* 

include “SNTLJTBL.ASM" 

include “SNTLCOMV.ASM" 


45 

50 

55 

60 


include * SNTLSTRT.ASM“ 


include "SNTLBUPP.ASM" 


include "SNTLI 2 FV.ASM" 


include “SNTLI 13 V.ASM" 
ENDS 
END 
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? * Copyright <c> Absolut® Software 1994 , 1995 

?• SNTLAPI.ASM 
»« 

uMd°5“iu th * " entinel AP1 routine general purpose routine. 

;* modules. 

• * 

;* HISTORY: 

;* 1995 . 09.05 - CCOTI 

!* Created. 


IDEAL 


%NOLIST 

include "SENTINEL.INC" 
include "SNTLAPI.INC" 
include "SNTLDATA.INC" 
include "SNTLTIMR.INC" 

%LIST 

SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 

/" •****•******•*•**•*##*##* 




**••••*< 


;* SNTLAPI 

}• 

}• PURPOSE: 

module*!* 18 £unCtion P rovid *“ «n external API for the Ward and Tender 

Sentinel . WSl1 88 develo P ment software tool*, to gain access to the 
;• 

'* ^ke following functions are supported: 

;* Function 0 - Get Sentinel State 
;* returns AL * Sentinel_state 

•* BX ■ engstftn" 

;• 

;* Function 1 - Set Sentinel State to ALERT 
;* returns CF * 0 if successful 

'■* CF « 1 if failed 

f * 

?* Function 2 - Get Sentinel Version Number 
;* returns AH » major version number 

AL * minor version number 
J* 

;* Function 3 - Get Sentinel Serial Number 
* * returns ES:DI ® pointer to serial number 

Function 4 - Cancel Sentinel ALERT 
** returns CF * 0 if successful 

'■* CF * 1 if failed 

;* 

;• Function 5 - Set next-call date and time 
;* returns ES - Sentinel data segment 

? * DI » offset of next_call date 

SI ■ offset of sngdskwrt" 
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;* Function 6 

- Gat call status 



/ * returns 

AL ■ Sngclat: SNCALLNA 

• 

0 

i * 

available port 

SNPRTSRCH 


1 

; • 

on the port 

SNMDMSRCH 


2 

?• 

SNMDKZNIT 


3 

;* 

to modem 

SNMDMPD 


4 

;* 

modem 

SNMDMDL 


5 

/* 

connect to server 

SNWTCON 


6 

;* 

server 

SNWTENQ 


7 

?* 

server 

SNWTACK 


8 

; * 

date from server 

SNWTNCD 


9 

;* 

SNCALLPASS 


10 

;* 

;* 

SNCALLFAIL 

* 

11 


no call attempt yet 
searching for an 

searching fo a modem 

initializing modem 
sending predial string 

sending dial string to 

w *iting for modem to 

waiting for ENQ from 


waiting for next-call- 


Function 7 - Disable Sentinel disk deflection 
returns CF * 0 if successful 

CF ■ l if failed 

Function S - Enable Sentinel disk deflection 
returns CF ■ 0 if successful 

CF « 1 if failed 

* return data segment pointers 
ES:DI « Sentinel Data Segment (SntlDataSeg in 

ESsSI ■ Sentinel Settings (SntlSettings in 


;* Function 9 

returns 
sentinel.h) 

;* 

sentinel.h) 

f * 

;* PARAMETERS: 

;* None 


;* Registers destroyed: none 

;■ Globals referenced: 

• * Sentinel_state 

;* Globals modified: 

;• Ssntinal_state - sat to SNSTALERT by function 1 

;* sngstftn - set to 

• * 

;• BIOS calls: none 
;* 

;• DOS calls: none 
• * 

;• proc calls: none 
• * 

;* hardware access: none 




ASSUME CS:SNTL SEG, DS:NOTHING, 
PROC SntlAPI FAR 
§@checkO: 

CMP AH, 0 

JNE §8checkl 

MOV AL,(Sentinel_state) 


ES:NOTHING 

; Return the state. 
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MOV 

RET 


8X,[sngstftn] 


10 


15 


20 


25 


30 


35 


§§checkl: 
to ALERT. 

CMP 
JNE 
CMP 
JNE 
MOV 

; mov 

CLC 
RET 

@0check2: 
number. 

CMP 
JNE 
MOV 
RET 

80check3: 

CMP 
JNE 
PUSH 
POP 
MOV 
RET 

§0check4: 

CMP 
JNE 
CMP 
JE 
MOV 
MOV 

08check4 done: 


AH, 1 

80check2 

(Sentinel_state],SNSTACTIVE 
0@exit_w error 
(SentineT_state),SNSTALERT 
(sngstftn], OFFSET snfsnrst 


Attempt to set the state 


AH,2 

@6check3 
AX,SNTL VERSION 


AH,3 

00check4 

CS 

ES 

01,OFFSET sngsernum 


AH,4 
@§check5 

[Senfinel ■ t ate], SNSTACTIVE 
0@check4 Hone 

[SentineT_state), SNSTACTIVE 
(sngstftnJ, OFFSET snfsnrst 


Return the version 
MOD CCOTI 48:95.01.27 

Return the serial number. 



RET 


40 

88check5: 

CMP 

JNE 

AH,5 

0@cheek6 • 

45 

PUSH CS 

POP ES 

next_call_date 

MOV“ DI, OFFSET next call 

50 

data write 
” MOV 

flag 

SI, OFFSET sngdskwrt 


RET 


55 

0$check6: 

CMP 

JNE 

AH,6 

0@check7 

60 

MOV 

AL 

RET 

At,, [ sngclst ] 

65 

@0check7: 

CMP 

JNE 

AH, 7 

00check8 


test for function 5 
not detected, continue 

prepare to copy string 
get ES - cs 
ES:DI points to 


ES:SI points to 

exit 

test for function 6 
not detected, continue 

get the call status into 

exit 


test for function 7 
not detected, continue 
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MOV [sngdeflect], 0 

deflection flag 
CLC 
RET 

eecheckS: 

CMP AH, 8 

JNE 88check9 

error 

MOV (angdeflect], 1 

deflection flag 

;Thia is commented out to maintain the 
CTM.EXE (See CCOTI). 

? CLC 

RET 

6@check9: 

CMP 
JNE 

error 

PUSH 
POP 

segment 

MOV 

settings 
MOV 
CLC 
RET 

BBexit w error: 

STC 

©Bexit: 

RET 


AH, 9 

§@exit_w_error 

CS 

ES 


; clear the Sentinel disk 

; clear the carry flag 
; exit 


? test for function 8 
; not detected, exit with 

? set the Sentinel disk 

data segment offset with the 

; clear the carry flag 
; exit 


; test for function 9 
; not detected, exit with 

; get ES * CS 
; ES:DI points to data 


DI, OFFSET sngstftn 
SI, OFFSET modem default 


? ES:SI points to sentinel 
port 

? clear the carry flag 
; exit 


ENOP SntlAPI 

ASSUME NOTHING 


;Routine: Swaplnt 

7 

;Descript: Swaplnt stores the existing vector 

DS:CX th * V * Ct ° r f ° r the interru P t i" with the new vector 

vector i is ,t ° r# * CUrr#nt vector (DS:DIJ. If DI - 0 th. current 

; not stored. 


;Arguments: 

; BX ■ the interrupt to hook into 

to ° 
if not stored. 

DS:CX * the new vector to install 
Registers destroyed: AX, BX, ES, FLAGS 
Returns: nothing 


;BIOS calls: none 
7 

/DOS calls: none 


0 the 
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;proc calls: none 

;*****tt*t*t«ft»t*»«tti 






BX 


ASSUME CS :SNTL SEG, OS:NOTHING, ES:NOTHING .. 

PROC Swaplnt 

XOR AX,AX 

MOV ES,AX 

SHL BX,2 

address of vector 

; load the existing vector and save it to DS:DI (if requested). 
OR 01,01 ' 

<72 @@no store 

MOV AX,[ES:BXj 

MOV [OS:DI],AX 

MOV AX,(ES:BX+2] 

MOV [DS:DH-2],AX 

@@no_store: 

i install the new vector 

cu 

MOV (ES:BX],CX 

MOV {ES:BX+21,OS 

ST I 
RETN 

ENDP Swaplnt 

ASSUME NOTHING 


;Routine: DelayFunc 

7 

7Descript: DelayFunc - introduces an delay. 

7 

;Arguments: none 
7Registers destroyed: none 
;Returns: nothing 
;BIOS calls: none 
;DOS calls: none 
;proc calls: none 

9 ************************ 1 


IF IODELAYON 

ASSUME CS:SNTL SEG, OS:NOTHING, 
PROC DelayPunc 

PUSH CX 

MOV CX,1 

@@loop_start: 

LOOP 001oop start 

POP CX 

RETN 

ENDP DelayFunc 

ASSUME NOTHING 

ENOIF 


ES:NOTHING 


60 

65 




;Routine: QnpDates 

7 

date2 riPt! CmpD * te8 * coni P*res two dates and sets the CF«1 if datel < 
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;Arguments: [SI] -> datel 
/ (DIJ -> date2 

;Registers destroyed: SI, 01, CX, BS 

;Returns: CP • 1 if datel < date2 

;BI0S calls: none 

; 

;DOS calls: none 


proc calls: none 


ASSUME CS:SNTL SEC, 
PROC CmpDates “ 


PUSH 

POP 

CLD 

MOV 

88cmp loop: 
"CMPSB 
JB 

LOOPE 
0@cmp exit: 
"retn 


DS 

ES 

CX,5 


@8cmp_exit 

@@cmp“loop 


ENDP CmpDates 


DS:NOTHING, ES:NOTHING 


; CMP [SI],[DI] 
; CF - i? 


ASSUME NOTHING 


ENDS 


END 
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;* Copyright (c) Absolute Software 1994, 1995 

;* SNTLBUFF.ASM 

;* 

;* Contains*the circular buffer access routines. 

;* HISTORY: 

1995.09.05 - CCOTI 
** Created. 

;• 

* *"*********************************#**#****^ 
*****•••«• 


IDEAL 

%NOLIST 

include "SENTINEL.INC" 
include "SNTLBUFF.INC" 
include "SNTLDATA.INC" 
%LIST 


SEGMENT SNTL_SEC BYTE PUBLIC 'CODE' 

ASSUME~CS:SNTL_SEG, D$:SNTL_SEG, ES:NOTHING 








; BUF_FLUSH - flush receive buffer 
; PURPOSE: 

f This function flushses the receive buffer 
index equal 

; to the head index. 


by setting the tail 


PARAMETERS: 

None 


RETURNS: 

Nothing 

REGISTERS DESTROYED: 
None 


GLOBALS REFERENCES: 
None 


CLOBALS MODIFIED: 
sngrxbufhd 
sngrxbuftl 

BIOS CALLS: 

None 


DOS CALLS: 
None 


PROCEDURE CALLS: 
None 


HARDWARE ACCESS: 
None 


NOTES: 
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PROC buf_flush NEAR 

MOV lsngrxbufhd ],OFFSET angrxbuf 

MOV [sngrxbuftl],OFFSET angrxbuf 

. exit 

ENDP buf flush 


; BUF_GETCHAR - get s character from receive buffer 
; PURPOSE: 

; This function returns the next available character in the 

receive buffer 

; and increments the tail pointer. 

i 

;Arguments: none 

;Registers destroyed: AL, SI 
* 

;Globala referenced: 

; sngrxbuftl 

; sngrxbufhd 

;GlobaIs modified: 

; received_buf_tail - moved to the location of the next character 

;Returns: AL * the character taken, CF«0 
• If the buffer is empty CF*1 

;BIOS calls: none 

;DOS calls: none 

;proc calls: buf_inc_ptr 

f hardware access: none 


45 


50 


55 


60 


PROC buf_getchar NEAR 

MOV SI, [sngrxbu f11] 

CMP SI, [sngrxbufhd] 

JE @@empty 

MOV AL,[SI) 

CALL buf_inc_ptr 

MOV [sngrxbuftl], SI 

position 
CLC 
RET 

Odempty: 

STC 

RET 

ENDP buf_getchar 


; get the tail pointer 
; is it the same as the head 
; yes, exit with status 

; no, get the next byte 
; increment tail pointer 
; set new tail pointer 

; set status 
; exit 


; set status 

; exit 


65 
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Routine: buf_putchar 

Deecr *-P t: Adds a character to the buffer. 

;Arguments: AL ■ the character to add 

Registers destroyed: SI 

Globals referenced: 
sngrxbuftl 
sngrxbufhd 

Globals modified: 

lp .„ - "° v “ d “ th. location of tho nont fro. 

CF-0 If th. ch.r.ct.r 1. .toed eo„.« ly . 
cr»i if the buffer is full. 

BIOS calls: none 

DOS calls: none 

proc calls: buf_inc_ptr 

hardware access: none 

... 


PROC buf_putchar NEAR 


buffer 


MOV 


MOV 

CALL 

MOV 

CLC 

RET 


SI, [sngrxbufhd] 

[SI], AL 
buf_inc_ptr 
[sngrxbufhd],SI 


ENDP buf_putchar 


poin^ to the head of the 

etore the received character 
increment the head 
set new head pointer 

set return status 
exit 




?* BOF_INCJ*TR - increment bffer pointer 
;* PURPOSE: 

with tSi 1 * fUnCti °" incrwn «"f the head or tail pointerae.oci.t.d 

*• receive buffer. 

;• 

;• PARAMETERS: 

'* SI ■ the pointer to increment 
;• RETURNS: 

'* SI ■ the next location in sngrxbuf 

;• REGISTERS DESTROYED: 

;• SI 

;• 

;• GLOBALS REFERENCED: 

? * OFFSET sngrxbuf 

; • OFFSET sngrxbufend 

;* 
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GLOBALS MODIFIED: 
Non* 

BIOS CALLS: 

Non* 

DOS CALLS: 

Non* 

PROCEDURE CALLS: 
None 

HARDWARE ACCESS: 
None 


NOTES: 


20 


25 


30 


35 


PROC buf_inc_ptr NEAR 

INC SI ; increment SI 

CMP SI,OFFSET sngrxbufend ; check if the pointer has 

wrapped 

JNE @@no_buf_wrap ; no, continue 

MOV SI,OFFSET engrxbuf ; ye*, **t back to beginning 

of buffer * 

BBno_buf_wrap: 

RET ; exit 

ENDP buf_inc_ptr 

ENDS 

END 
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;• Copyright (c) Absolute Software 1994 , 1995 
;* SNTLCOMM.ASM 

t * Contains comm routines. 

;* 

;* HISTORY: 

;• 1995.09.05 - CCOTI 

'* Created. 

;* 

.... 


... 


IDEAL 
%NOLIST 

include "SENTINEL.INC’ 
include "SNTLCOMM.INC’ 
include ’SNTLDATA.INC’ 
include "SNTLTIHR.INC* 

%LIST 

SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 


30 
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*•••«■*••* ww **************** 1 

* * 

;• CMFTMOUT - transmit a NAX 
;* PURPOSE s 

p* This functions transmits a NAX Tf i mbv #. . . 

transmitted, NAK ’ If 3 NAK > have already been 

;* the transaction is terminated with an EOT. 

/ 

;* PARAMETERS: 

J* DX ■ UART Transmit Holding Register 

;• RETURNS: 

Nothing 

;* NOTE: 




ASSUME CS:SNTL_SEC, DS:NOTHING, ES:NOTHING 
PROC cmftxnak NEAR 


CMP 

aborting 

JE 


Itx.txxnakcnt 
9€aborttx 


3 


only send 3 NAK'a before 


nvv Ale, ULNAK 

OUT DX, AL 

INC [tx.txxnakcnt] 

MOV (tx.txxnxtst), OFFSET snfget] 
following tx J 

HOV [rx.rxxtmr], TM10SEC 
timeout 

JMP Mexit 


; send another NAX 

; set state function 
; set response to NAK 


9@aborttx: 


/ 
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MOV AL, DLEOT 
transaction 

OUT DX, AL 

MOV (tx.txxnxtst), OFFSET anfanrat 
following tx 


; send EOT to terninate 


; set stata function 


OOaxit: 

MOV 

MOV 

complata 

MOV 

RETN 


[angatftn), OFFSET cmftx , 

(tx.txxstate), OFFSET CSscmtxconp; 


set next state function 
sat transmitter state: tx 


[ rx.rxxstate], OFFSET cmfpstx ; reset recaiver 


ENDP cmftxnak 

ASSUME NOTHING 
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# * ******** 






CMFTXENQ - transmit an ENQ 


?* PURPOSE: 

;* This functions transmits a NAX. 
transmitted, 


If 3 NAK's have already been 


the transaction is terminated with an EOT. 


?* PARAMETERS: 

?* DX ■ UART Transmit Holding Register 
?* RETURNS: 

/* CF • 0 if not timed out 

;* CP • l if timed out 


NOTE: 


i ******************************************* 






ASSUME CS:SNTL_SEC, DS:NOTHING, ES: NOTHING 
PROC cmftxenq NEAR 


CMP [tx.txxenqcnt], 3 

aborting 

JE GGaborttx 

MOV AL, DLENQ 

OUT DX, AL 

INC (tx.txxenqcnt] 
count 

MOV (tx.txxnxtst], OFFSET snfgetpkt 
following tx 

MOV (rx.rxxtmr), TM10SEC 
timeout 

JMP eeexit 

§0aborttx: 

MOV AL, DLEOT 
transaction 

OUT DX, AL 

MOV (tx.txxnxtst], OFFSET snfsnrst 
following tx 

MOV (rx.rxxstate], OFFSET cmfpstx 


; only send 3 NAK's before 

; send another ENQ 
; increment transmitted ENQ 
; set state function 
; set response to ENQ 

; send EOT to terminate 

; set state function 
; reset receiver 
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MOV 

MOV 

complete 

RETN 


(engstftn), OFFSET cmftx 
[tx.txxstate], OFFSET CS:cmtxcomp; 


set next state function 
set transmitter state: tx 


ENDP cmftxenq 

ASSUME NOTHING 
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CMFPRPMDM - prepare to transmit modem string 
PURPOSE: 

This function prepares the transmit structure before initiating 
transmission of a string to the modem. initiating 

PARAMETERS: 

BX -> the string to transmit (see note below) 

RETURNS: 

Nothing 

REGISTERS DESTROYED: 

GLOBALS REFERENCED: 

GLOBALS MODIFIED: 

BIOS CALLS: 

None 

DOS CALLS: 

None 

PROCEDURE CALLS: 

None 

HARDWARE ACCESS: 

None 

NOTE: 

•c.e5id P !i nt * t0 th ® 1-n9th ° f th * ' trin9 to which i. 

memory by the string (eg. AT<CR>3). 




55 
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ASSUME CS:SNTL_SEG, DS:SNTL_SEG, ES:NOTHING 
PROC crafprpmdm 


MOV 

packet 

MOV 

MOV 

SUB 

string 

MOV 

MOV 

MOV 


AL, (BX ] 

[BYTE LOW tx.txxpktlenj, AL 
[BYTE HIGH tx.txxpktlen ], 0 
BX, [tx.txxpktlen) 

[tx.txxbufp], BX 
(tx.txxpkttyp], CMTXMDMPKT 
[tx.txxtmr ], TM1SEC 


; get the length of the 

; set pointer to start of 

; transmitting modem packet 
; set maximum transmit time 
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MOV (tx.txxtxing], 0 
progress flag 


MOV [engstftn],OFFSET cmftx 
MOV [rx.rxxtmr), TM6SEC 

for rx 


RETN 


ENDP cmfprpmdm 

ASSUME NOTHING 


clear transmission in 

next state: transmit 
wait 5 seconds after tx 


;* CMFTX - transmit state machine 
• * 

?* PURPOSE: 

;* This function acts as the transmitter state machine performing 
all packet * 

* transmissions and data-link ACK's, NAK's, and ENQ's. 

* PARAMETERS: 

* None 

* 

RETURNS: 

Nothing 

REGISTERS DESTROYED: 

* GLOBALS REFERENCED: 

* 

* GLOBALS MODIFIED: 

• 

* BIOS CALLS: 

* None 

* 

* DOS CALLS: 

* None 

* 

PROCEDURE CALLS: 

None 

HARDWARE ACCESS: 

UART (IN LSR, OUT THR) 

• NOTE: 


ASSUME CS:SNTL SEG, DSiSNTL SEC, ES:NOTHING 


PROC cmftx 

CMP [tx.txxtmr], 0 
on too long? 

JE cmtxrst 
and Sentinel 


MOV DX, [sngmdmprtadd] 


; has the transmitter been 

; yes, reset transmitter 

; no, continue 
; ensure THR is empty. 

? get DX - LSR 
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ADD 

D 

X 

LSR 

is 

empty 

IN 

AL, 

DX 

it 

is 

TEST 

AL, 

00100000b 


where TX ISR 
JZ @@exit 
world the 

routine is 


MOV DX, (sngmdmprtaddI 

address 


; and determine if the THR 
• and load another byte if 
; not needy for DOS world 
; works fine but in WINDOWS 
; TX ISR chokes and this 
; called by ComTrans() 

; THR empty, get THR 


CMP 

[tx.txxtxing], 

1 


JE 

cmcont 



MOV 

(tx.txxdatcnt] 

, 0 


count 




MOV 

[tx.txxtxing], 

1 


progress 

flag 



CMP 

(tx.txxpkttyp] 

, CMTXDLNAX 


JE 

cmtxnak 



CMP 

[tx.txxpkttyp] 

CMTXDLACK 

t 

JE 

cmtxack 



CMP 

[tx.txxpkttyp] 

CMTXDLENQ 

9 

JE 

cmtxenq 



CMP 

(tx.txxpkttyp] 

CMTXDLEOT 


JE 

cmtxeot 



CMP 

(tx.txxpkttyp] ( 

. CMTXMDMPKT 

S 

• 

packet? 




JNE 

cmprpdata 


a 

MOV 

[tx.txxstate], 

OFFSET CS:cmtxdata 

9 

. 

segment 



9 

JMP 

cmcont 



cmprpdata: 



MOV 

[tx.txxatate], 

OFFSET CS:cmtxatx 


cmcont: 



9 

JMP 

(tx.txxatate) 



cmtxstx: 




MOV 

AL, DLSTX 



OUT 

DX, AL 




MOV (tx.txxlrc), 0 

t2b lt«-txxatate), OFFSET CSscmtxlenlib 


transmission in progress? 

yes, continue 

no, clear data bytes tx'd 

set transmission in 

transmitting a NAK? 

yes 

transmitting an ACK? 
yes 

transmitting an ENQ? 
yes 

transmitting an EOT? 

yes 

transmitting modem 

no, must be data packet 
yes, just transmit data 


transmitting data packet 


clear LRC checksum 


cmtxlenlsb: 

MOV AL, [BYTE LOW tx.txxpktlenl 

OUT DX, AL 

XOR (tx.txxlrc], AL 

12^ ltx.txxatate], OFFSET CSrcmtxlenmab 
JMP eeexit 


cmtxlenmab: 

MOV At, [BYTE HIGH tx.txxpktlen) 

OUT DX, At 

XOR [tx.txxlrc], AL 

MOV [tx.txxatate], OFFSET CS:cmtxtype 
JMP eeaxit 


cmtxtype: 

MOV AL, (tx.txxtype) 

OUT DX, AL 

XOR [tx.txxlrc], AL 
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MOV 

JMP 


(tx.txxstate], OFFSET CSscmtxstype 


cmtxstype: 

MOV AL, [tx.txxatype] 

OUT DX, AL 

XOR (tx.txxlrc), AL 

[tx.txxetate], OFFSET CSscmtxdata 

JMP eesxit 


cmtxdata: 

MOV si, [tx.txxbufp] 

ADO SI, 1tx,txxdatcnt1 

MOV AL, (SI] 

OUT DX, AL 

XOR [tx.txxlrc), AL 

INC [tx.txxdatcnt) 

DEC |tx.txxpktlen) 
transmit 

jnz eesxit 

Otp [tx.txxplcttyp J, CMTXMOMPKT 

packet? 

JNE cmtxsststx 
finish tx 


; transmit ths nsxt byte 


; update ths lrc 
; increment data byte index 
; decrement data bytes to 

; and exit.if more to send 
; transmission complete, 

; transmitting modem 

; no, data packet, set to 


MOV [tx,txxstate], 
complete 

jmp eesxit 
cmtxsststx: 


OFFSET CS:cmtxcomp; yes, transmission 


MOV 

packet 

JMP 


[tx.txxetate), OFFSET CS:cmtxetx 

eesxit 


or set next state tx data 


cmtxetx: 

MOV AL, DLETX 

OUT DX, AL 

XOR [tx.txxlrc), 
MOV [tx,txxstate 
JMP §0exit 


AL 

, OFFSET CS:cmtxcomp 


cmtxlrc: 

MOV AL, [tx.txxlrc) 

OUT DX, AL 

JMP OFFSET esj cmtxcomp 


cmtxack: 

MOV AL, CLACK 

OUT DX, AL 

jSp in*' txx,tat8 l< OFFSET CS:cmtxeex»p 


cmtxnak: 

CALL cmftxnak 

jmp eeexit 


cmtxenq: 

CALL cmftxenq 
JMP eesxit 

cmtxeot s 

MOV AL, DLEOT 

OUT DX, AL 

MOV (tx.txxstate], OFFSET CS:cmtxcoap 
JMP eeexit 
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cmtxeomp: 

MOV (tx.txxtxing), 0 
progress flag 

MOV AX, (tx.txxnxtst 1 
function 

MOV |sngstftn), AX 
JMP @@exlt 

cmtxrst: 

MOV [tx.txxtxing), 0 
progress flag 

MOV [sngstftn), OFFSET snfsnrat 
Sentinel 

0Qexit: 

RET 

ENDP cmftx 

ASSUME NOTHINC 


; transmission complete 
; clear transmission in 

; move onto the next state 


; transmitter timeout 
; clear transmission in 

; next state: reset 
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CMFPACK - process expected ACK 
PURPOSE: 

This functions tests for an acknowledgement from the 

PARAMETERS: 

None 

RETURNS: 

Nothing 

NOTE: 


CT Server. 




ASSUME CS:SNTL_SEG, DS:NOTHING r ES;NOTHING 
PROC cmfpack NEAR 


AL, DLACK 
§@teatnak 

[rx.rxxatatej, OFFSET cmfpatx 

@ 6 teetnak: 

CALL cmfpnak 

@<?exit: 

RETN 


CMP 

JNE 

MOV 

RETN 


; ACK received? 

; no, test for NAK 

? yes, transfer complete go 
; await another packet 


: treat as potential NAK 


ENDP cmfpack 
assume nothing 


;* 

;• CMFPNAK - process NAK 
• • 
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;* PURPOSE: 

This functions tests for a negative-acknowledgement from the CT 
Server. 

;* 

5 ;* PARAMETERS: 

;* AL contains the character that may be a NAK 

. • 

;• RETURNS: 

;* Nothing 
10 ,* 

;* NOTE: 
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ASSUME CS:SNTL SEC, OS'.NOTHING, ES: NOTHING 


PROC cmfpnak NEAR 

CMP AL.DLNAX 
JNE @@exit 

e@cont: 

; MOV BX, OFFSET sngsernum_str 

; CALL ComTransInit 

MOV (sngstftn], OFFSET snftxehkin 

9@exit: 

RETN 

ENDP cmfpnak 

ASSUME NOTHING 


» NAK received? 
; no, exit 


; point to string to send 
; initiate retransmission 


;* CMFPSTX - process STX 
• * 

;* PURPOSE: 

;* This functions tests for a start-of-text character. 

• * 

;« PARAMETERS: 

;* None 

. * 

;• RETURNS: 

;* Nothing 

• * 

;* NOTE; 

. * 


ASSUME CS:SNTL SEC, DS:NOTHING, ES:NOTHING 


PROC cmfpstx NEAR 


CMP AL, DLSTX 
JE 0@cont 

CALL cmfrstrx 
RETN 


STX received? 
yes, continue 

no, reset receiver 
exit 


9@cont: 

MOV (rx.rxxlrc), 0 

MOV (rx.rxxstate], OFFSET cmfpienl 


clear LRC checksum 
set next state 
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ENDP cmfpstx 

ASSUME NOTHING 


* ************************ 






CMFPLEN 1 - process first byte of length 
PURPOSE: 

.Id of 11 funCti ° n * acc *Pf the least significant byte of the length 
* packet. 

PARAMETERS: 

None 

RETURNS: 

Nothing 

NOTE: 








ASSUME CS:SNTL_SEG, DS:NOTHING, ES:NOTHING 
PROC cmfplenl NEAR 


MOV 

XOR 

MOV 

@@exit: 
RETN 


(BITE LOW rx.rxxpktlen), AL 
(rx.rxxlrc), AL 

[rx.rxxstate], OFFSET cmfpien 2 


> .tore.LSB of length 
; update LRC 

t aet next state 


ENDP cmfplenl 
assume nothing 


************************* 






;• CMFPLEN 2 - process second byte of length 
; • PURPOSE: 

field 3 iB fUnCtiOn0 acc *P c * the «»« signifcant byte of the length 

«* a packet. 

;• 

;* PARAMETERS: 

; * None 


?■* RETURNS: 

** Nothing 

;• NOTE: 

’********••***** 

****#•*••• 




ASSUME CS:SNTL_SEG, OS .-NOTHING, ES: NOTHING 
PROC cmfplen2 NEAR 
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MOV [BYTE HIGH rx.rxxpktlen), AL 
XOR (rx.rxxlrc), AL 

MOV (rx.rxxstate), OFFSET cmfptype 

P@exit: 

RETH 


Btor« LSB of length 
update LRC 

set next state 


ENDP ctnfplen2 

10 ASSUME NOTHING 


IS 
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?* 

;* CMFPTYPE - process packet type 

»• 

;* PURPOSE: 

;• This fundtions accepts the packet type field. 

;* PARAMETERS: 

;* None 

• t 

;• RETURNS: 

;* Nothing 

* * 

;* NOTE: 








ASSUME CS:SNTL_SEG, DS:NOTHING, ES:NOTHING 
PROC cmfptype NEAR 


MOV (rx.rxxtype), AL 
XOR (rx.rxxlrc), AL 
DEC |rx.rxxpktlen) 

MOV (rx.rxxstate), OFFSET cmfpstyp 

90exit: 

RETN 


; store packet type 
; update LRC 

; decrement bytes remaining 
; set next state 


ENDP cmfptype 

ASSUME NOTHING 


•••••••••• 

? * 

;• CMFPSTYP - process packet subtype 
;* PURPOSE: 

;• This functions accepts the packet subtype field. 

;• PARAMETERS: 

? * None 

;* 

;* RETURNS: 

;* Nothing 

?* 

;* NOTE: 

;* 

**•****«•« 

ASSUME CS:SNTL_SEG, DS:NOTHING, ES:NOTHING 
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PROC cmfpfltyp NEAR 


MOV 

XOR 


[rx.rxxstype],AL 
(rx.rxxlrc), AL 


•tor* packet eubtype 
update LRC 


DEC [rx.rxxpktlen] 

JNZ e@cont 

^ fr*-rxxstate), OFFSET cmfpetx 
JMP 0Sexit 


@@cont: 

MOV 

MOV 

count 


[rx.rxxetate], OFFSET cmfpdata 
(rx.rxxbytcnt), 0 


; decrement bytea remaining 
i continue if more data 
; expect ETX next if over 


; set next state 
< clear the received byte 


@@exit: 

RETN 


20 


ENDP cmfpatyp 
ASSUME NOTHING 
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;* cmfpdata - process packet data 
;» PURPOSE: 

This functions accepts the packet data field. 

»* PARAMETERS: 

;* None 

• * 

;* RETURNS: 

;* Nothing 

• * 

;* NOTE: 


* ********************************************* 




ASSUME CS:SNTL_SEG, 
PROC cmfpdata NEAR 


DS:NOTHING, ES:NOTHING 


MOV SI, [rx.rxxbufp] 

ADD si, (rx.rxxbytcnt] 

MOV [SI], AL 

XOR [rx.rxxlrc], AL 

INC [rx.rxxbytcnt] 

DEC (rx.rxxpktlen) 
to receive 

*INZ @@exit 

fiouL orrsrr 

@@exit: 

RETN 

ENDP cmfpdata 
ASSUME NOTHING 


; get offset to store data 

; store packet data 
; update LRC 

* increment data byte count 

; decrement bytes remaining 

; and exit if more to come 
; or set next state if 
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;• CMFPETX - proceaa ETX 
• • 

;* PURPOSE: 

;• Thia functiona accepts tha packet ETX delimiter 

• * 

;• PARAMETERS: 

; * Nona 

;* 

;* RETURNS: 

;• Nothing 

?* 

?* NOTE: 


20 


25 


30 


35 


ASSUME CS:SNTL_SEG, DS:NOTHING, ES:NOTHING 
PROC cmfpetx NEAR 


XOR 

(rx.rxxlrc), AL 

; update LRC 

CMP 

AL,DLETX 

; test for ETX 

JE 

Mcont 

; ETX rx'd, continue 

CALL 

cmfrstrx 

; ETX not rx'd, reset 

JMP 

@9exit 


€8cont: 

MOV 

[rx.rxxstate), OFFSET cmfplrc 

; set next state 

Mexit: 

RETN 



ENDP cmfpetx 


ASSUME 

NOTHING 



40 

45 

50 


;• CMFPLRC - proceaa LRC 
• * 

;* PURPOSE: 

?* This functions accepts the packet 

;* PARAMETERS: 

; # None 

• • 

;* RETURNS: 

;* Nothing 

• * 

;* NOTE: 


LRC checksum. 


55 


60 


65 


ASSUME CS:SNTL_SEG, OS:NOTHING 
PROC cmfplrc NEAR 
IP 0 

CMP AL, (rx.rxxlrc] 

JE §@cont 
CALL cmfrstrx 
RETN 
ELSE 


ES:NOTHING 


; test for valid LRC 
; LRC valid, continue 
; LRC invalid, reset rx'r 
; and exit 
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CMP AL, 0 
JE §@cont 

e@nak: 

MOV (engstftn], OFFSET cmftx 
MOV [tx.txxpkttyp), CMTXDLNAK 
RETN 
END IF 


; test for 0 .for now 
; LRC valid, continue 

; LRC invalid, send a NAK 
; set next atate: transmit 
; set packet type: send NAK 
; exit 


BBcont: 

MOV [sngstftn], OFFSET cmftx 
function 

MOV (tx.txxpkttyp], CMTXDLACK 

MOV [tx.txxtmr], TM1SEC 
complete ' 

MOV [tx.txxnxtat), OFFSET cmfpredata ; 
following tx 


aet next Sentinel state 

transmitting an ACK 
give tx one second to 

aet state fuction 


@£exit: 

RETN 


ENDP cmfplrc 

ASSUME NOTHING 




* CMFGETNEXT - get next call 
PURPOSE: 

This functions extracts 
acket• 


date 

the next call 


date from a received 


PARAMETERS: 

None 

RETURNS: 
Nothing 


NOTE: 


ASSUME CS:SNTL_$EG, DS:NOTHING, 
PROC cmfgetnext NEAR 

PUSH OS 

POP ES 

MOV 01, OFFSET next call date 
next_call_date ~ ~ 

MOV si, (rx.rxxbufp] 
data 

CLD 

MOV CX, 5 
data: 

REP MOVSB 

INC (sngdakwrt] 

MOV |sngclflt), SNCALLPASS 


ES:NOTHING 

; get ES « DS 

; ES:01 points to 
; OS:SI points to received 

; move up through pointers 
; copy five bytea of BCD 

; YYMMDDHHMM 

; copy the new date/time 

? set the disk write flag 
; set the call status 
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MOV AX , (sngmdmprt] 
next call 

MOV [modem default port), AX 
port ~ ~ 

Mexit: 

RETN 


aet default modem for 
call baaed upon current 


ENDP cmfgetnext 
ASSUME NOTHING 


IF 0 


i 

J* CMFDISAB1E - disable Sentinel 


; • PURPOSE: 

received^"ron" Ct * 0nB diB * bl ** the Sentinel baaed upon a packet 

clll date traCkin9 8Brver - The Sentinel is disabled by recording a 
and time of OxFFFFFFFFFF. 

;* 

;* PARAMETERS: 

; * None 

;* 

;• RETURNS: 

;* Nothing 

;* 

?• NOTE: 


ASSUME CS:SNTL_SEC, OS:NOTHING, 

PROC cmfdisable NEAR 

PUSH DS 
POP ES 

«OV DI, OFFSET next call date 
next call date “ " 

MOV si, OFFSET rx.rxxdata 
data 

CLD 

MOV CX, 5 
data: 

REP MOVSB 
INC [sngdskwrt] 

B$exit: 

RETN N 

EN0P cmfdiaable 
ASSUME NOTHING 
ENDIF 


ES:NOTHING 

; get ES - DS 

; ES:DI points to 
; DS:SI points to received 

; move up through pointers 
; copy five bytes of BCD 

; YYMMDDHHMM 

; copy the new date/time 

; set the disk write flag 


;• ******************* 
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;• CMFPRSDATA - pares received daca 
.* purpose: 

;• This functions parses received data 

action. 

}* 

;* PARAMETERS: 

;• None 

;• 

;• RETURNS: 
j• Nothing 


and takes appropriate 


• NOTE: 
» 


ASSUME CS:SNTL_SEC, DS:NOTHING 

PROC cmfprsdata NEAR 

MOV At, [rx.rxxtype] 

CMP AL, SNSERVER 

JNE @@reset 

MOV At, (rx.rxxstype] 

CMP At, SNNEXTCAtL 

JNE @@nxtestl 
CALL cmfgetnext 
from packet 

JMP @@reset 

CCnxtestl: 

IP 0 

CMP At, SNDISABLE 
JNE @9nxtest2 
CALL snfdiaable 
ENDIP 

Preset: 

CALL cmfrstrx 

€@exit: 

RETN 

ENDP cmfpredata 
ASSUME NOTHING 


ES:NOTHING 

; test for valid data type 

; test for valid subtype 
; test for next call packet 

; extract next call date 

; test for dieable packet 
; disable Sentinel 

; reset receiver 


***+•••*•* 

• * 

'* CMFRSTRX — reset the receiver 
;• PURPOSE: 

;• This functions resets the receiver. 

;* PARAMETERS: 

;* None 

;• RETURNS: 

!* Nothing 

;• NOTE: 

. • 
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ASSUME CS:SNTL_SEG, DS:NOTHINC, ES:NOTHING 
PROC cmfratrx NEAR 

MOV [rx«rxxstatt) r OFFSET cafpstx ; rasct racaiver itata 

machine 

MOV [angetftn],OFFSET anfanrat ; reset the Sentinel to 

active mode 

MOV [Sentinel_atate],SNSTACTIVE 

88exit: 

RETN 

ENDP cmfratrx 

ASSUME NOTHING 

ENDS 

END 
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;* Copyright (c) Absolut© Software 1994, 1995 

;* 

?* SNTLCOMV•ASH 

;* Contains the comm ISR routine. 

■ /* 

;* HISTORY: 

;• 1995.09.05 - CCOTI 

. }* Created. 
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# • • • 


IDEAL 

%NOLIST 

include "SENTINEL.INC" 
include "SNTLCOMV.INC" 
include "SNTLDATA.INC" 
include "SNTLBUFF.INC" 
include "SNTLAPI.INC" 

%LIST 

SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 

********* ••****• 

t 

' CMFISR - communications interrupt service routine 
; PURPOSE: 

£ ith This func tion implements the communications ISR that supports 

system^* C * iVin ^ * nd tran8mittin 9 data. This function hooks the 
communications port interrupt (IRQ 4/3). 

PARAMETERS: 

None 

RETURNS: 

Nothing 

GLOBALS REFERENCED: 
sngmdmprtadd 

GLOBALS MODIFIED: 

sngincmisr - Incremented on entrance, decremented on exit, 
sngstftn - set to error handler if error is detected. 

BIOS CALLS: 

None 

DOS CALLS: 

NONE 

PROCEDURE CALLS: 

cmftxbyte, buf_putchar 

HARDWARE ACCESS: 

UART (IN HR, I/O MCR, IN RDR) 
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ASSUME CS:SNTL_SEG, DS:NOTHING, ES:NOTHING 
PROC cmfisr FAR 


PUSH AX 

PUSH DX 

PUSH SI 

PUSH DS 

PUSH CS 

POP DS 

ASSUME DS:SNTL_SEC 

INC (sngincmisrj 

IFDEF Debug 

INC [sngcomcnt] 

ENDIF 1 


; save registers 

; set DS 

; set ISR in progress flag 
/ increment -convn ISR count 


G$check_iir: 

; Check the reason for the call (error, 
received). 1 ' 

t NOV DX,(sngmdmprtadd) 

identification register 
ADD DX,IIR 

IN AL,DX 

TEST AL,00000100b 

interrupt 

JNZ DataReceive 

reception 


ready to send, data 
? get interrupt 


? test for receive 
; proceed with data 


TEST 

interrupt 

JNZ 

transmission 


AL,00000010b 
DataSend 


Merror: 

IFDEF Debug 

INC (sngcomerr] 

ENDIF 1 

t Check the status of the error 
MOV DX, fsngmdmprtad 

clears the error 

ADD DX, LSR 

IN AL, DX 

JMP @$end 


; test for transmit 
; proceed with data 


; reading the register 


DataSend: 

; CALL cmftxbyte 

JMP eeend 


DataReceive: 

; First, turn off RTS. 

MOV DX, (sngmdmprtadd] 

ADD DX, MCR 

IN AL, DX 

IODELAY 

AND AL, 11111101b 

OUT DX, AL 

IODELAY 
Receive: 


Move DX to MCR. 
turn off RTS 
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IFDEF Debug 



INC 

END IF 

[received_count) 


5 

HOV 

IN 

IODELAY 
CALL 
buffer. 

DX,[sngmdmprtadd] 

AL, DX 

buf_putchar 

; DX « RDR. 

; AL » received byte. 

; Put the byte into the 

10 




15 

; Check if there is another request 
ADD DX, 2 

IN AL, DX 

IODELAY 

TEST AL,00000001b 

@@check._iir 

pending. 

; Move to HR reg. 


§0end: 



20 

MOV 

to PIC 

OUT 

AL,20h 

20h,AL 

? signal end of interrupt 

25 

MOV 

register 

ADD 

IN 

DX,[sngmdmprtadd] 

DX,MCR 

AL,DX 

* get the modem control 


IODELAY 


30 

OR 

AL,00000010b 

OUT 

register 

DX,AL 


IODELAY 

35 

DEC 

flag 

fsngincmisr) 

- 

ASSUME 

DS:NOTHING 

40 

POP 

DS 

POP 

SI 


POP 

DX 


POP 

IRET 

AX 

45 

ENDP cmfisr 



ASSUME 

NOTHING 


; turn RTS back on 
; set the modem control 


; clear ISR in progress 


; recover registers 


; exit 


ENDS 

50 end 
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;* Copyright (c) Absolute Software 1994, 1995 

;• 

;• SNTLDATA.ASM 

;* 

;• Contains the global data segment for the sentinel. 

;• 

;• HISTORY: 

;* 1995.09.05 - CCOTI 

;* Created. 


15 

IDEAL 

4NOLIST 

include "SENTINEL.INC* 

20 include "SNTLTIMR.INC" 

include "SNTLJTBL.INC" 
include "SNTLCOHM.INC" 

%LIST 

25 SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 

; Transient variables 
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sngstftn DW NEAR PTR OFFSET ActiveRoutine ; CCOTI 

Sentinel_state DB SNSTACTIVE 

;Scatch vars to store the current port info being used, 
sngmdnprt DW ? 

sngmdmprtint DW ? 

sngmdmprtadd DW ? 


.’Previous ISR vectors. 


sngprvtmr 

DD 

FAR PTR 0 


sngprveom 

DD 

FAR PTR 0 


sngprvdskl 

00 

FAR PTR 0 


sngprvint2f 

DD 

FAR PTR < 

) 


;ROR'd to limit updating the 
ActiveRoutine). 

real-time clock once 

every 16 ticks 

eyeleaver 


DW 

0001 h 


win_flag 


DB 0 

$ 


win“vm 


DB 1 

i 


engincmisr 


DB 0 



aend_buf_len 


DW 0 



send~buf“ptr 


DW BYTE PTR 0 


sngcomcnt 

count 


DW 0 

i 

comm, interrupt 

sngcomerr 

DB 

0 

; comm. 

error count 

TimerlSR^count 

DW 

0 

; timer 

interrupt count 

•ent count 

DW 

0 

; bytes 

transmitted 

received count 

DW 

0 

; byte r 

'eceived 

•ngflent 

DB 

0 


angelat 

DB 

SNCALLNA 



angcomhk 

DB 

0 



sngsuapend 

DB 

0 
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sngdlytrar 

sngint2ftmr 

manager 


■ngprtdlytmr 

sngdeflect 
deflection flag 
dkgcyl 


dkgectr 

angapifl 

engpwdl 

paeawordl 


engpwd2 
paseword2 


; Port info.. 

modetn_de f au 1 t_port 

port table 


PORT_TABLE_SIZE - 4 


DW 0 

OW TM2MIN 
DW 0 

DB 1 


wait 2 minutes for an XMS 
; Sentinel diek 


DW ? 
DB ? 
DB 0 


DW 


; diek access cylinder 
; diak access sector 
, API request count 

ro » API request user 


DW 'AD' 


request user 


DW 0 

DW 03F8h, OOOCh, \ 
02F8h, OOOBh, \ 
OOOOh, 0000b, \ 
02E8H, OOODh 


; Disk location of data sector. 


data_cyl_sect 

«lata_head_drive 

sngdskwrt 

; Output strings. 


DW 0 
DW 0 
DB 0 


init_str nun 
init~str — table 

init~str”table SIZE 


DW 0 

DW 5 DUP( 0 ) 


dial_str num 
d ial~str~table 
DIAL_STR~TABLE srZE 


DW 0 

DW 4 DUP( 0 ) 


uidi numDf 
LABEL dial_number 

dial_number len 


BYTE 
OB 12 


DB 


18003396122 


ODh 


LABEL sn_packet start 
«tx_byte “ 

18b_length_byte 
* b b_ 1ength^byt e 
LABEL sn_text_start 
text_type 
text_sub_type 
LABEL sn_data start 
sngsernum 
LABEL now date 
now^year 
now"month 
now day 
now_hour 
now minute 
LABEL en_3ata_end 
etx byte 
lrcTbyte 

LABEL 8n_packet_end 
LABEL 8ng8ernuiQ~str 

8ngsernum"str len 


UNKNOWN 
DB 02h 
DB ? 

DB ? 

UNKNOWN 

DB 0 

DB 0 

UNKNOWN 

DB 6 DUP( 0 ) 

UNKNOWN 
DB 1 
DB 1 
DB 1 
DB 1 
DB 1 
UNKNOWN 
DB 03h 
DB ? 

UNKNOWN 

UNKNOWN 

DB an_packet_end - sn_packet start 
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sngdatalen 
;END MOD 

structure 


structure 

tx 


DB sn_data_end - sn_data start 

; initialize receive 

RXZCM < OFFSET cmfpack, \ 

o, 0, 0, 0, 0, 0, \ 

OFFSET CS:nextcall_text > 

; initialize transmit 

TXZCM < 0, 0, 0 # 0, 0, 0 0 0 \ 

o, 0, 0, o f \ 

OFFSET CS:sngtxbuf > 


; Result tables. 

convnand_result_table len 
command~result~table~ 


DB 3 

DW 3 DUP( 0 .) 


mdm_init_result_table len DB 2 


mdm_init3result~table~ 

dial_result_table_len 

dial_result~table 

connect_result table len 
connect“reeult"table“ 

; Modem and result string pool. 
string_pool 

modem_find_str start 
LABEL roodem~find~etr~ 

modem_find atr len 

; next call date 
LABEL next call date 
next~call~year 
nex t“call~month 
next"call“day 
next“call“hour 
next call~minute 


DW 2 DUP( 0 ) 
DB 6 

DW 6 DUP( 0 ) 
DB 4 

DW 10 DUP( 0 ) 


DB 127 DUP( 0 ) 

DB # ATZ # , ODh 
UNKNOWN 
DB 4 


UNKNOWN 
DB OFFh 
DB OFFh 
DB OFFh 
DB OFFh 
DB OFFh 


sngrxbufhd 
sngrxbuftl 
LABEL sngrxbufst 
sngrxbuf 

LABEL sngrxbufend 

nextcall_text 

sngtxindex 
LABEL sngtxbufst 
sngtxbuf 

LABEL sngtxbufend 


DW 0 
DW 0 
UNKNOWN 

DB 80h DUP( 0 ) 
UNKNOWN 

DB 05h DUP( 0 ) 

DB 0 ; 

UNKNOWN 

DB 7Bh DUP< 0 ) 
UNKNOWN 


receive buffer 


transmit buffer 


60 


65 


; Result jump tables. 

; Table for ModemFind 
find_jump_table 

CARRIER (NOTE 1) 


DW NEAR PTR find timeout ; TIMEOUT 

DW NEAR PTR find~Ok ; NO 

DW NEAR PTR find timeout ; ERROR 

DW NEAR PTR find~ok ; OK 
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; NOTE 1: 29 March 1995 


DBOYO 


CAftftXER> 

? 

when next 
? 

Sometimes this 
aftar.’ Whan 
(<AT>)'it 


USR modem (and maybe others) does not return <NO 
when the server disconnects. <NO CARRIER> returned 
signal (command or control line) sent to modem, 
response is sent before the next command, sometimes 
the Sentinel receive, this response to a modem query 


should interpret it as <OK>. 


15 


; Table for Modemlnit. 
init_jump_table 

DW NEAR PTR init error 

DW NEAR PTR init error 

DW NEAR PTR init'ok 

; TIMEOUT 
; ERROR 
; OK 

20 

25 

TONE 

; Table for dial results. 
dial_jump^table 

DW NEAR PTR dial error 

DW NEAR PTR dial~error 

DW NEAR PTR dial busy 

DW NEAR PTR dial“no_tone 

; TIMEOUT 
; ERROR 
; BUSY 
? NO DIAL 

CARRIER 

DW NEAR PTR dial_no_carr 

; NO 


Query 

(NAK) 

DW NEAR PTR dial_eerver 

; Server 

30 

Query 

(ENQ) 

DW NEAR PTR dial_eerver 

; Server 

35 

enct_jump_table 

CARRIER 

DW NEAR PTR cnct error 

DW NEAR PTR cnct error 

; TIMEOUT 
; NO 

EOT 


DW NEAR PTR cnct eot 

; Server 


ENQ 


DW NEAR PTR cnct_enq 

; Server 

40 

NAK 


DW NEAR PTR cnct nak 

; Server 


ACK 


DW NEAR PTR cnct_ack 

; Server 

45 

ENDS 


- 



include 

"SNTLDATA.INC" 




END 
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f ********************** 




•* Copyright (c) Absolut* Software 1994, 1995 
;• SNTLI13V.ASM 


;• Contains INT 13 ISRs and 


HISTORY: 

199S.09.05 - CCOTI 
Created. 


disk deflection routines. 




IDEAL 

%NOLIST 

include "SENTINEL.INC" 
include "SNTLI13V.INC" 
include "SNTLDATA.INC" 
include "SNTLI2FV.INC" 
include "SNTLTIMR.INC" 
include "SNTLAPI.INC" 
%LIST 


SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 
*•**•*****•**•***•**#*###***#* 




DKFDPLRD - Disk deflect reed 


; PURPOSE: 

; This function performs disk read 

destination 

; buffer with erroneous characters 


deflections by filling up the 


PROTOTYPE: 


PARAMETERS: 


only) 


AL • number of sectors to read (must be non-zero 
CH m low tight bits of cylinder number 
CL « sector number 1-63 (bits 0-5) 

high two bits of cylinder number (bits 6-7, 


) 


hard disk 


DH * head number 

DL « drive number (bit 7 set for hard disk) 
ES:BX «> data destination 


RETURNS: 

The flags register as set by the ROM interrupt 13 handler: 

- CP » 0 if successful 
AH • status 

AL - number of sectors transferred 
NOTE: 


65 


ASSUME CS:SNTL_SEG, DS:NOTHING, ES:NOTHING 
PROC dkfdflrd NEAR 
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IS 


20 


25 


30 


35 


40 


MOV 

DI, BX 

buffer 

PUSH 

AX 

parameters 


PUSH 

OS 

PUSH 

cs 

POP 

DS 

MOV 

SI, OFFSET 

GSdf Hoop: 


CLO 


MOV 

. i ___ 

CX, I00h 


* 1 sector) 


egdflact: 

HOVSW 

destination 


DEC 

SI 

DEC 

SI 

LOOP 

eedfisct 

DEC 

AL 

sectors to 

fill 

JNZ 

@@df Hoop 

POP 

DS 

POP 

parameters 

AX 

MOV 

AH, 0 

and exit 


CLC 

RET 


fillr: 


FILL 

EQU Of6f6h 


ENDP dkfdflrd 

ASSUME NOTHING 








; get offset of destination 

; store disk access 

; store register 
; set OS:SI pointer 


; deflect loop 
; set pointers to increment 
; fill 256 words (512 bytes 


; single sector deflection 
; copy filler to 

; decrement source pointer 
; by 2 for word moves 


; decrement the number of 


; restore register 
• restore disk access 

' *®t success parameters 






45 

50 

55 


60 

65 


DKFDFLM8R - Disk deflect MBR access 
PURPOSE: 

HER sector. £unction Perform, disk deflection on attempted access to 
originl^R. 18 de£lected ^om our subloader in the MBR to the 
PROTOTYPE: 

PARAMETERS: 

AH - disk function: 0x02 ■ disk read 
.. . °*03 * disk write 

At - number of sectors to read (must be non-zeroi 
CH • low eight bits of cylinder number 
CL » sector number 1-63 (bits 0-5) 

only) hi9h tW ° bit * ° f c y lind ®r number (bite 6-7, hard disk 

OH ■ head number 

ES.R* d ^ V ?K nU ? > ® r (blt 7 " et f ° r h#rd d * 8 M 

ES.BX -> the data source (writes) or data destination (reads) 
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RETURNS: 

The flags register as set by the ROM interrupt 13 handler- 
- CF ■ 0 if successful 
AH » status 

AL - number of sectors transferred 
NOTE: 


ASSUME CS:SNTL_SEG, DS:NOTHING 
PROC dkfdflmbr NEAR 


CMP 

AH., 02 h 

JE 

@@dflmbrrd 

CMP 

AH, 03h 

0? 

JE 

G@dflmbrwrt 

9§dfImbrrd: 

PUSH 

CX 

parameters 

PUSH 

AX 

MOV 

CX, 0002h 

d«fl«ct«d MBR 

MOV 

AL, 1 

single sector 

PUSHF 

CALL 

[DWORD CS:sngprvdskl 

pops flags 

JNC 

@§dflrdcnt 

POP 

CX 

parameters 


POP 

CX 

JMP 

@@exit 

08dflrdcnt: 


POP 

AX 

parameters 

POP 

CX 

MOV 

AH, 0 

CMP 

AL, 1 

JE 

Wexit 

10 sectors 

PUSH 

AX 

parameters 

MOV 

AX, ES 

buffer by 

ADD 

AX, 200h 

sector) 

MOV 

ES, XX 

POP 

AX 

parameters 

DEC 

AL 

required 

CALL 

dkfdflrd 

with junk 

PUSH 

AX 

MOV 

AX, ES 


pointer 


ES:NOTHING 

; read access to KBR? 

; yes, deflect read 
; write access to cylinder 

; yes, deflect write 

; save disk access 

; load CX to access 

; load AL to access a 

; push flags because IRET 
; from original handler 

; error?, no, continue 
; yeB, recover access 

; discard original AX 
; exit 

; recover disk access 

; set success indication 
; all sectors read? 

; yes, exit 

; no, load crap to the next 
; save disk access 
s increment destination 
; by 512 (512 bytes * 1 

; recover disk access 

; fill one less sector than 
; fill destination buffer 

; reset destination buffer 
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SUB AX, 200h 

MOV £S, AX 

POP AX 

INC AL 

■actors read 

MOV AH, 0 

CLC 

JHP @@exit 

@0dflmbrwrt: 

PUSH CX 

parameters 

PUSH AX 

MOV CX, 0002 h 

deflected MBR 

MOV AL, 1 

single sector 
PUSHF 

CALL (DWORD CS:sngprvdskl 1 

pops flags 1 

JNC 00dflwrtcnt 

POP CX 

parameters 

POP CX 

jmp eeexit 

Mdf lwrtcnt: 

MOV AH, 2 

modified 

MOV CX, 0002h 

MOV AL, 1 

PUSHF 

CALL (DWORD CS:sngprvdskl1 

pops flags ^ J 

JC 00exit 


; increment number of 
; set'success indication 
; exit 

; save disk access 

i load CX to access 

; load AL to access a 

; push flags because IRET 
; from original handler 

? error? no, continue 
; yes, recover access 

; discard original AX 
; exit 

; read in the (possibly) 

; image of true MBR 

; push flags because IRET 
; from original handler 

; error? yes, exit 


table 

PUSH DS 

PUSH ES 

parameter 

PUSH ES 

POP DS 

PUSH CS 

POP ES 

MOV AX, BX 

ADD AX, OFCh 

MOV SI, AX 

MOV DI, OFFSET sngrxbuf 

MOV CX, lOOh 

REP MOVSB 


? get copy of partition 

/ save register 
; save disk access 

; set DS 

; set ES 


; get a pointer to a buffer 
? prepare to move 256 bytes 
; do the move 


55 


60 


POP ES 

parameter 

MOV AH, 2 

MBR 

MOV CX, OOOlh 

MOV AL, 1 

PUSHF 

CALL [DWORD CS:sngprvdskl 

pops flags 

JC 0§exit2 


; get copy of subloader 
; restore disk access 

; read subloader from the 

; push flags because IRET 
; from original handler 

? error? yes, exit 
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subloader 

PUSH CS 

POP DS 

MOV SI, OFFSET sngrxbuf 

in subloader 

MOV AX, BX 

ADD AX, OFCh 

MOV DI, AX 

in MBR 

MOV CX, lOOh 

REP MOVSB 

MOV AH, 3 

MOV CX, OOOlh 

MOV AL, 1 

PUSHF 

CALL (DWORD CS:sngprvdskl) 

pops flags 

JC e@exit2 

MOV AH, 2 

ES:BX 

MOV AL, 1 

PUSHF 

CALL (DWORD CS:sngprvdskl] 

pops flags 

JC e@exit2 

POP DS 

POP AX 

parameters 

POP CX 

MOV AH, 0 

JMP §@«xit 

<?@exit2: 

writa 

POP DS 

£@exit: 

RET 


; copy partition tabla into 
; set DS 

; DS:SI ■> partition tabla 

? ES:DI -> partition tabla 

; prepara to oova 256 bytas 
; do the move 

; writa tha subloadar 

; push flags because IRET 
; from original handler 

; error? yes, exit 

; read new MBR back into 

; push flags because IRET 
; from original handler 

; error? yes, exit 

; recover register 
; recover disk access 

; set success indication 

; if exiting due to disk 
; deflection error 


ENDP dkfdflmbr 

ASSUME NOTHING 


; INT13ISR - Sentinel interrupt 13 ISR 
; PURPOSE: 

; This function provides the Sentinel's interrupt 13 hook for 

disk access. 

; It serves two purposes: to store next-call information to disk 

after a 

; transaction with the Sentinel server, and to prevent disk reads 
of the 

; sectors that contain the Sentinel. 

9 

’• A£t«r a tracking transaction with the server, the Sentinel will 

have 
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- 85 - 

s.ntl.”'* 1V " ‘ th.t meet be recorded ro diet. 

die* thet* *"**■ “ °”to • dl.k reed or writ, to the 

? the Sentinel is installed on. 

» 

attempts to pr ° 9ra,n <-uch as a Norton Disk Editor or Anit-Virus) 

tti. •“"* <“•'< <*« the Sentinel oocepiee. 

Sentinel^. d * n *°* the ”* d to “• tod. tn.t occepied 

; disk space. 

; 

original** 1 *"•“ ° ther th * n read /^ite. i. pa.eed through tQ ^ 
interrupt 13h handler. 

PROTOTYPE: 

PARAMETERS: 

AH ■ disk function: 0x02 - disk read 
t. 0x03 • diek write 

S: Lv-" ™ 

CL ?? ctor number 1-63 (bite 0-5) 
only) 19h tW ° bit * of Cylinder number (bite 6-7, hard diek 

OH * head number 

ES-BX d f> V thr U ? > ! r (blt 7 ,et for h « d diek) 

• X the data eource (writ.., or data de.tination (read., 

RETURNS: 

- f CF 9 ! 0 e if*JucceMful >y thS R ° M int * rrupt 13 handler: 

AH • status 

AL - number of eectore traneferred 
NOTE: 

•*•*•••••• .* . ..... 


ASSUME CS:SNTL_SEC, DS:NOTHlNG, ES:N0TH1NC 


OFFSET TO PREHANDLER - Pr.Infcl 

OrPSET_T0;P0U,HAM0LBS . mulluESXr I K;S 


load time 
loaded. * 


DW ? 


the time the system 


PROC Intl3lSR FAR 

Intl3 RelOffe«J- R£I '- OPCODE DB 0E ®h 

JMP_REL_OFFSET: db offset _to_prehandler 

PreIntl3Handler: 

PUSH AX 

PUSH Es 

PUSH OS 

PUSH CS 

POP DS 

ASSUME DSjSNTL sec 
; Check for an XMS manager. 

"OV AX, 4300h 
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int 2Fh 

CMP AL, 80h 

JE §exns Detectad 

2Fh. 

; Check for timeout. 

MOV AX, 0040h 

MOV ES, AX 

MOV AX, (ES: 006Ch ] 

SUB AX, (load time] 

•ntlinit. 

CMP AX, PREINT13 TIMEOUT 

JMP @@jmp^to_full_i*r 

JB to full iar 

hook sentinel. ~ ~ ~ 


; XMS loaded, re-hook INT 

; ES ■ bios aegstent. 

; Load current bios time. 

; Find delta since 

; Check for timeout. 

I If timeout, continue and 


eeXMS Detected: 

"PUSH BX 

PUSH CX 

PUSH DI 

@@hook2F: 

MOV BX, 002Fh 

MOV DI, OFFSET angprvint2f 

MOV CX, OFFSET snfint2f 

CALL Swaplnt 

eehooklC: 

MOV BX, OOlCh 

MOV DI, OFFSET sngprvtmr 

MOV CX, OFFSET tmfisr 

CALL Swaplnt 

; Enable full intl3 handler. 

POP ^Intl3_RelOffset], OFFSET_TO_FULLHANDLER 

POP CX 

POP BX 


8@jmp to full_isr: 
ASSUME DS:NOTHING 


POP 

DS 

POP 

ES 

POP 

AX 


; JMP [DWORD CS:sngprvdskl] 

handler 


pass control to original 


FullIntl3Handler: 

IF TWODSKHKS 

CMP [CS:sngdskskipl, 0 

to skip tut? 

JNE 8@passthrul 

to first disk hook 

MOV ICS:sngdskskip), 1 

second hook 
END IF 

eedsktstl: 

OR AL, AL 

zero? 

JN2 @0dsktst2 

JMP eepassthru 

00dsktst2: 

CMP [CS:sngdeflect), 1 

JNE CCpiggyback 

access 


; this invocation directed 
; yes, pass control through 
; set flag for (possible) 

; is the sector quantity 

; no, continue 
; pass control through 

; disk deflection enabled? 

; no, check for piggy-back 
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@Gdsktst3: 

CMP DX, 0080h 

and drive? 

JHE 00piggyback 

5 access 


10 


15 


20 


25 


B0dsktst4: 

CMP CX, OOOCh 

sectors? 

Sentinel location) 

JA 0@piggyback 

access 


PUSH BX 

MOV (BYTE LOW CSsdkgcyll, CH 

MOV BL, CL 

SHR BL, 6 

AND BL, 03h 

MOV (BYTE HIGH CS:dkgcyl], BL 

MOV (CS:dkgsctr), CL 

AND [CS:dkgsctr), 3fh 

POP BX 

register 

00deflect; 
determined 


attempting to 
sectors of 
deflect 


CMP (dkgsctr], 1 

@§dflmbr 

read/write 


40 

CMP 

0? 

AH, 02h 

JE 

@@dflrd 


CMP 

0? 

AH, 03h 


JE 

eedflwrt 

45 

JMP 

etdflmbr: 

sector 

08passthru 


CALL 

dkfdflmbr 

50 

JMP 

@edflrd: 

BBreturn2 


CALL 

dkfdflrd 


JMP 

B@return2 

55 

§@dflwrt: 



MOV 

and exit 

CLC 

AH, 0 

60 

JMP 

e@piggyback: 

€§return2 


CMP 

disk access? 

(CS:sngdskwrt 

65 

JE 

@0contpb 

JMP 

§8passthru 


; access to Sentinel head 
; no, check for piggy-back 

? access to first 12 
; (MBR subloader and 
? no, check for piggy-back 

; save important register 
; get the cylinder 

; get the sector 
; recover important 

; at this point it has been 
; that the system is 
; access the first 12 
; cylinder 0 and we must 

; access starting on MBR? 

; yes, go deflect 

; read access to cylinder 

; yes, deflect read 
; write access to cylinder 

; yes, deflect write 
; pass control through 

; deflect access from MBR 

; to original MBR 
; exit 

; deflect a read 
; exit 

; deflect a write 
? set success parameters 

does the Sentinel need 

yes, continue piggy-back 
pass control through 
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@@contpb: 

disk 


ready to 


to the 


Sentinel is on 


IF TWODSKHKS 
CMP 
JE 

handler 

£@dskaccl: 

handler 

PUSHF 
CALL 
pops flags 
JC 
JMP 

@@dskacc2: 

PUSHF 
CALL 
pops flags 
JC 

ELSE 

PUSHF 
CALL 
pops flags 
JC 

ENDIF 


(sng2dskhks), 1 
0€dskacc2 


(DWORD CS:sngprvdskl) 

@9return 

§@contpb2 

[DWORD CS: sngprvdsk2} 
OOreturn 

[ DWORD CS: sngprvdskl) 
€@return 


£Bcontpb2: 

PUSHA 

PUSH DS 

PUSH ES 

PUSH CS 

POP DS 

PUSH CS 

POP ES 

ASSUME DSsSNTL SEC 

HOV {sngdskwrt], 0 


call. 

MOV 

sector 

MOV 

to write 
MOV 
MOV 


AX, 0301h 

CX, f data^cyInsect) 

DX, (data_head drive) 
BX, DATA_SECTOR OFFSET 


PUSHF 

CALL f sngprvdskl] 

pops flags 

JC OOwrite error 

here for now “ 

JMP 8@cleanup 


Mwrite_error: 
90cleanup: 

ASSUME NOTHING 


; write next-call-date to 
; at this point we are 
; piggy-back onto a write 
; same drive that the 

; are we hooked twiced? 

; yes, execute second 

; execute first disk 

; push flags because Iret 
; from original handler 

; exit if disk access error 

; execute second handler 
; push flags because IRET 
; from original handler 

* e*lt if disk access error 

; push flags because IRET 
; from original handler 

; exit if disk access error 


; set DS 

; set ES 

; clear the Sentinel flag 
; Load registers for intl3 
; 03-disk write; 01-1 
; set cylinder and sector 

; set the head and drive 

; push flags because IRET 
; from original handler 

? disk access error, jmp 

; disk write successful 
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POP E S 
POP DS 
POPA 


@@return: 

IF TWODSKHKS 
MOV 

flag 
END IF 

RET 

and return 


(CS:sngdakskip), 0 
2 


0§return2: 

ASSUME 
IF TWODSKHKS 
MOV 

flag 

ENDIF 

RET 

and return 


NOTHING 

[CS:angdskskip], 


2 


0 


; clear dlak access skip 
; discard FLAGS from stack 


; clear disk access skip 
; discard FLAGS from stack 


25 


30 


35 


40 


45 


50 

55 


IF TWODSKHKS 

0@passthru: 

time 


ASSUME 

CMP 

twice? 


CS:SNTL_SEG 

[CS:sng2dskhks), 


0 


jhe @@sechandle 

second hook 

JMP (DWORD CS:sngprvdskl 

original handler 
@0sechandle: 


PUSHF 

CALL (DWORD CS:sngprvdsk2] 

JMP @@cleanup 


@€passthrul: 
handling access 

JMP (DWORD 
handler 


CS:sngprvdsklJ 


ELSE 

0@passthru: 

time 

JMP (DWORD CS:sngprvdskl1 

handler 1 

ENDIF 


ENDP Intl3ISR 


ASSUME NOTHING 


; cannot piggy-back this 

? is disk access hooked 
; pass control to 

; no, pass control to 


; earlier disk hook 
? pass control to original 
? and it will IRET 
; cannot piggy-back this 
; pass control to original 


ENDS 

END 
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•• copyright (c) Absolute Software 1994, 1995 

>• 

;• SNTLI2FV.ASM 

; • 

;• PURPOSE: 

;* Contians INT 2F ISRa used by the sentinel. 
;* 

;* HISTORY: 

;• 1995.09.05 - CCOTI 

;* Created. 


IDEAL 
%NOLIST 

20 include "SENTINEL.INC" 

include "SNTLI2FV.INC" 
include "SNTLDATA.INC" 
include "SNTLTIMR.INC" 

,, include "SNTLAPI.INC" 

25 %LIST 

SEGMENT SNTL_SEC BYTE PU8LIC 'CODE* 
30 ; Unmovable code. 


9 W " WWWWWWWW ™"*********#**##**##«###***^^^ 

;Routine: Int2FVect 

9 

;Descript: Provides an API and RPL 2F/4A06 support 


40 


45 


50 


55 


60 


65 


ASSUME CS:SNTL_SEG, DS:NOTHING, ES:NOTHING 


PROC Int2PVect PAR 

JMP SHORT gentry 

NOP 

rpl_sig DB 'RPL' 


Mentry: 

CMP AX,4A06h 

JNE @@next check 

MOV DX,CS * 


Mnext check 
IP 0 " 

CMP 

JNE 

CMP 

JNE 

MOV 

MOV 

END IF 


? must be a Sentinel check 


AX,SNTL_SIG1 

$@exit " ; 

DX,SNTL_SIC2 

§@exit ; 

AX,OFFSET CS;SntlAPI ; 

DX, CS 


proper signature provided? 
no, exit 

proper signature provided? 
no, exit 

yes, return API address 


eesxit: 

I RET 


ENDP Int2FVect 


SUBSTITUTE SHEET 












-9! - 


ASSUME NOTHING 


5 

10 


IS 


20 

25 


30 


35 

40 


45 

50 

55 

60 

65 


; • 

;* SNFINT2F - interrupt 2F hook 

;* 

/• PURPOSE: 

»• This is the interrupt 2F hook that supports the Sentinel API 
request end 

;• monitors WINDOWS activation/deactivation 

? * 

; * PARAMETERS: 

; * None 

; * 

;* RETURNS: 

> * Nothing 

• • 

t 

;* RECSITERS DESTROYED: 

; • 

?• CLOBALS REFERENCED: 

• • 

;* CLOBALS MODIFIED: 

• • 

;• BIOS CALLS: 

; • None 


;• DOS CALLS: 

; * None 

* * 

;* PROCEDURE CALLS: 
;* Non® 

«* 

;* HARDWARE ACCESS: 
;* Non® 




ASSUME CS:SNTL_SEG, DS:NOTHING, ES:NOTHING 
PROC snfint2f FAR 


CMP AX, 1605h 

starting to load 


JNE 0@checkl 

MOV [BYTE CS: 

until WINDOWS is loaded 


sngsuspond), 


PUSHF 

IRET from call 


CALL 

pops flags 

IRET 

interrupt 


[DWORD CS:8ngprvint2f 


1 


0@checkl: 

CMP AX, 1608h 

has finished loading 

JNE 0@check2 

MOV [BYTE CSzsngsuspend), 0 

resume 

MOV [BYTE CSrsngdlytmr], 90 


; check if WINDOWS is 

; suspend Sentinel 
; push flags because 
; to previous handler 
; return from 

; check if WINDOWS 

; allow S«ntinel to 
; set the delay timer 


reset after delay 
MOV 


[WORD CS:sngstftn ], OFFSET snfsnrst 
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PUSH? 

IRET from call 

CALL 


pops flags 
flag 


MOV 


(DWORD CSssngprvint2f) 
[BYTE CS:win_flag], 1 


MOV [angincmisr], 0 

communications ISR flag 
IRET 

interrupt 


e§check2; 

CMP 

has exited 

JNE 

MOV 

resume 

MOV 


AX, 1606h 
eecheck3 

[BYTE CS:sngsuspend], 0 
[BYTE CS:sngdlytmr], 90 


reset after delay 
MOV 
PUSHF 

IRET from call 

CALL 

pops flags 

MOV 

status flag 

MOV 

communications ISR 
IRET 

interrupt 


(WORD CS:sngstftn], OFFSET 

[DWORD CS:sngprvint2f] 

[BYTE CS:win_flag], 0 

[angincmisr], 0 
flag 


eecheck3: 


35 


CMP 

AX, 1609h 


starting exit 




JNE 

€8check4 



MOV 

until WINDOWS has 

[BYTE CS:sngsuspend], 1 
exiited 


40 


PUSHF 



IRET from call 


4 


pops flags 

CALL 

(DWORD CS:sngprvint2f] 

i 



IRET 



45 

interrupt 



} 

e&check4: 

CMP 

AX, 1607h 




testing for 

32 

f 

50 


JNE 

3echeck5 


support 

CMP 

BX, 001Oh 

9 




JNE 

eecheckS 




CMP 

CX, 0003h 


55 


JNE 

eecheckS 



MOV 

CX a 0000h 



indicate 32-bit support 

9 



IRET 




interrupt 



9 

60 

eecheckS: 

CMP 

; check 


in AX:DX 

AX, SNTL_SIC1 





9 



JNE 

88org 


65 

previous handler 

9 


CMP 

OX, SNTL SIG2 



; push flags because 
; to previous handler 
r WINDOWS status 
; clear 
; return from 

; check if windows 

; allow Sentinel to 
• «®t the delay timer 

t 

snfsnrst 

; push flags because 
; to previous handler 
; clear WINDOWS 
; clear 
; return from 

; check if WINDOWS is 

? suspend Sentinel 
push flags because 
to previous handler 
return from 

check if WINDOWS is 
bit disk access 

set return value to 
return from 

for API request 
check for signature 

no match, go to 
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JNE @0org 

previous handler 


AX:DX match, but no access yet 

CMP (sngapif 1 ] io 

railed API requests? 

JAE 0@apifail 

original handler 


in BX:CX 
backdoor 
in BX: CX 
backdoor 


CMP 

JNE 

password 

CMP 

JNE 

password 

JMP 


eCbkdr: 


CMP 

JNE 

failure count 

CMP 

JNE 

failure count 
@€apipass: 


MOV 


password match 
MOV 

point 

, I RET 

interrupt 


eeapifail: 

MOV 

presence but failed 
INC 
IRET 

interrupt 

§§org: 

JMP 

previous handler 


BX, (sngpwdl) 

0@bkdr 

CX, [sngpwd2] 

e@bkdr 

@0apipasB 

BX, [WORD angsernuml 
0@apifail 

CX, (WORD sngsernum ♦ 
@@apifail 

AX,OFFSET CS:SntlAPI 
DX,CS 


DX, OFOADh 
access 
[sngapif1) 


[DWORD CS:sngprvint2f] 


ENDP snfint2f 

ASSUME NOTHING 

ENDS 

END 


; no match, go to 

7 

? more than ten 
; yes, jump to 

? check for passwords 
; no match, check for 
; check for passwords 
; no match, check for 
; ok! 

check for backdoor access 
; no match, increment 

2 ] 

; no match, increment 

; signature and 
; return API entry 
; return from 

; alert CTM to 
; return from 

; pass control to 
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;* Copyright (c) Absolut* Software 1994, 1995 
• * 

;• SNTLINIT.ASM 

»* 

;• contain* all initialisation cod* that ia discarded from memory 
;* HISTORY: 

;• 1995.09.05 - CCOTI 

j* File created from the old SNTLINIT. ASM. 

;*****#*t**#****t******#***t**#.ttt**tt***»****** i# * ######t##tt 

••*•*•*•** 


SEGMENT SNTL INIT SEG PARA PUBLIC 'CODE* 
ENDS 


IDEAL 


ANOLIST 

include "SENTINEL.INC" 
includ* "SNTLDATA.INC" 
include "SNTLI2FV.INC" 
include "SNTLI13V.INC" 
%LIST 


0 *•**■*•*******•##***#• *<* *#••*#****«#• 
/* 

;* SNTL_INIT_SEG - Transient segment. 

SEGMENT SNTL INIT SEG PARA PUBLIC 'CODE' 
ASSUME CS7SNTL~INIT_SEC, DS: NOTHING 




; Sntlinit Header 


part_sector 
boot“sector 
io sector 


DB 512 DUP< 0 ) 
DB 512 DUP( 0 ) 
DB 512 DUP( 0 ) 


SntlSignature 

JMP 

fdddataseg: 

parameters 

fdgssihddrv 
Disk Editor 

fdgssicylsec 
Disk Editor 

fdgssisec 


parameters 

fdgstihddrv 

fdgsticyisec 

fdgstisec 


parameters 


DW SNTL_SIG1, SNTL SIG2 
NEAA~Snt1Init " 


DW OOOOh 
DW OlOlh 
DB 11 


OW OOOOh 
DW OOOOh 
DB 00 


sentinel source image 

determined with Norton 

determined with Norton 

written by CTM 

sentinel target image 

written by CTM 
written by CTM 
written by CTM 

eubloader source image 
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fdgslsihddrv 

Disk Editor 

DW OlOOh 

? determined with Norton 

fdgslsicylsec 
Disk Editor 

fdgslsisec 

DW OOlOh 

DB 1 

; determined with Norton 

; written by CTM 

paramotor# 

fdgsltihddrv 

fdgslticylaoc 

fdgaltiaec 

/ 

DW OOOOh 

DW OOOOh 

DB 0 

; subloader target image 

? written by CTM 
; written by CTM 
; written by CTM 

fdginstall 
activate HDD 

DB 0 

; written by CTM to 

program 

fdgdakerr 

DB 0 

; infection by FDD boot 

; disk access error count 

fdghddbshd 
head and drive 

fdghddbscs 
and sector 

DW ? 

DW ? 

; HDD Boot Sector 

? HDD Boot Sector cylinder 

fdghddid 

CTH to prevent 

DD ? 

; HDD volume ID written by 

infecting wrong disk 


? FDD boot program from 


t * w 


; Sntlinit 
Sntlinit: 

entry points (stack* AX,BX,CX,DX,DS,ES) 

EMIT 

'S' 

PUSH 

SI 

PUSH 

DI 

PUSH 

cs 

POP 

DS 

ASSUME DS:SNTL_INIT_SEG 

XOR 

subloader 

Bx ' Bx ; copy original MBR over the 

MOV 

MOV 

location 0000:7C00h 

01, 7C00h 

MOV 

MOV 

MOV 

CLD 

AX, OPrSET part_aector 

^ X _. ~ ; SI » sector to copy. 

CX, lOOh ; 256 words to copy. 

REP MOVSW 

EMIT 

'M' 


; Check if sntlinit is already in memory. 
XOR BX, BX 

MOV ES, BX 

MOV BX, (ES:OOBCh] 

MOV ES, [ES:OOBEh) 

CMP (WORD ES:BX+3), 'PR' 

JNZ RPL check fail 

CMP [BYTE ES:BX+5), 'l' 

JNZ RPL check fail 

RPL_exist: “ ~ 

; Check if the sentinel acknowledges. 

EMIT 'R' 

MOV AX, SNTL SIG1 

MOV DX, SNTL - SIC2 

INT 2Fh 
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CMP 

JNE 

EMIT 


; la the sentinel installed? 
; Tea, exit now. 


DX, SNTL SIC2 
•xit “ 

' 1 ' 


RPL check fail: 


XOR AX, AX 

MOV ES, AX 

Calculate and assign SNTL SEC 


MOV 

AX, 

cs~ 

MOV 

BX, 

OFFSET 

SHR 

BX, 

4 

ADD 

AX, 

BX 

HOV 

OS, 

AX 


ASSUME OS:SNTL SEC 


to DS. 

SNTL SEGMENT 


ES 


IVT segment. 


; Hook the Interrupt handlers into the ayatem: 

; Hook 2Fh. CLI ; DISABLE INTERRUPTS 


; Hook 13h. 


MOV 

MOV 


(WORD ES:OOBChJ, OFFSET Int2FV©ct 
[WORD ES:OOBEh], AX 


MOV 

13h to control disk 
MOV 
MOV 
MOV 
MOV 
MOV 


AX, (WORD ES:004Ch) 

iccatfl 

(WORD sngprvdskl], AX 
AX, (WORD ES:004Eh) 
(WORD sngprvdskl+2], AX 
[WORD ES:004Ch], OFFSET 
(WORD ES:004EhJ, DS 


; first hook of INT 


Intl3ISR 


t * w 

; MOV 

reboot 


AX,[WORD ES:0064h] 


; hook INT 19h to track 


MOV 

MOV 

MOV 

MOV 

MOV 


(WORD sngprvintl9],AX 
AX,(WORD ES:0066h] 

[WORD sngprvintl9«*2] ,AX 
(WORD ES:C064h),OFFSET anfintl9 
(WORD ES:0066hJ,DS 


• MOV [BYTE ES:03C4hl, 'N 

DOSOATA look like 

MOV (BYTE ES:03C5hJ, 


loading 
; MOV 

and our cods 
; MOV 

wrapper) at 


(BYTE ES:03C6h], 't‘ 
(BYTE ES:03C7h),*'W* 


F3h 


; QEMM requirement 
; to work with QEMM 

; a Novell NetWare RPL by 

; this string at INT Flh 

; segment (less DOS 

? segment portion of INT 


; MOV 

address at 
; SUB 

our hook 
; mov 

; mov 


AX, DS 
AX, OOOlh 


; Novell puts its INT 13h 
; INT F3h, so try that for 


[WORD ES:03CCh ♦ 2), AX 

(WORD ES:03CCh), OFFSET Intl3ISR 


? Initialize runtime variables (if any). 

MOV AX, (modem default port) 

dial out ~ - 1 

HOV [ sngmdmprt), AX 

;Set the load_time variable for the preintl2 handler. 
• MOV AX, 0040h 


set first port to attempt 
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? 

tine. 

> MOV 

STI 


ES, AX 

AX, [ES:006Ch] 
(load_time), ax 


EMIT 'H' 


exit: 

; Jump to io.eye 

EMIT 'X' 

POP 01 

POP SI 

ASSUME ES:NOTHING 
POP ES 

ASSUME OS:NOTHING 
POP OS 

POP DX 

POP CX 

POP BX 

POP AX 

; Jump back to sector. 

JmpOpcode 0B OEAh 

EntryPnt DW 7C00h 

SectSeg DW OOOOh 

IF EMIT_ON ;Only needed for EMIT macro 


! ES “ bios segment. 
; Load current bios 


ENABLE INTERRUPTS. 


; Puts the character in AL to the console. 
PROC PutChar NEAR 


PUSH 

AX 



PUSH 

BX 



MOV 

MOV 

AH,0Eh 

BH,0 

/Output a 

character 

push 

INT 

bp 

lOh 

;TCN - For 

old BIOS 

pop 

POP 

bp 

BX 

;TCN - For 

old BIOS 

POP 

AX 




RETN 

ENDP PutChar 


ENDIF ;EMIT ON 


Padding to maintain segment offset that 
Padding 0B 20h DUP( 90h ) 


matches the current CTM.EXE 


' ^'°^LjQ^ n 2 g* t * tn * en ^® Bu * t *«• «t the •nd of 
SNTL SEGMENT: „ 

of SNTL SEC. ; U ** d 

ENDS 


the SNTL_INIT_SEG. 
to calculate the location 


END 
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;• Copyright (c) Absolute Software 1994, 1995 

;* SNTLJTBL.ASM 
• * 

Contains the main juraptable code used by TimerlSR. 
;* HISTORY: 

?* 1995.09.05 - CCOTX 

; * Created. 


* 






IDEAL 
%NOLIST 

include "SENTINEL.INC" 
include "SNTLJTBL.INC* 
include "SNTLDATA.INC" 
include "SNTLTIMR.INC" 

%LIST 

SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 

ASSUME CS:SNTL_SEG, DS:SNTL_SEG, ES:NOTHING 


; Enter: AL - table index, BX 
PROC JumpTable NEAR 
XOR AH, AH 

SHL AX, 1 

offset 

ADD BX, AX 

JMP (WORD BX] 

ENDP JumpTable 


table offset. 

; zero AH 

; multiply AX by 2 to get 

; add offset to the table baee 
; jump the indexed address 


cleanup: 

MOV 

; MOV 

MOV 
RETN 


(angstftn],OFFSET snfsnrst 
(cleanup_routine],OFFSET ActiveRoutine 
f SentineInstate J,SNSTACTIVE 


find timeout: 
IF 1~ 

MOV 

ELSE 

MOV 

MOV 

ENDXF 

RETN 


(sngstftn),OFFSET snfsnrst 

[ sngstftn],OFFSET snfsnrst 
(cleanup^routine],OFFSET CheckNextPort 


find ok: 

? Mo3em successfully initialized. 

MOV (BYTE init_str numJ,INIT STR TABLE SIZE 

xnit string table index ~ - _ _ 


;reset modem 


init error: 
MOV 
RETN 


(sngstftn],OFFSET Modemlnitlnit 


init ok: 

IF 0~ 

JMOD DBOYD 55:95.04.12 
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' r*»et the dial string number when the Sentinel goes active# doina 
this will * 

; allow the system to search for another port and continue on from 
the last 

; pre-dial string used . 

MOV [BYTE dial str num],DIAL STR TABLE SIZE 

ENDIF “ " 

MOV (sngstftn),OFFSET ModemCalllnit 

RETN 


IF 0 

;MOD DBOYD 50:95.02.22: 

; to allow direct dial and PBX dial to work on opposite system# 
treat <BUSY> 1 

; the same as <NO DIAL TONE> so that the next pre-dial string will 
be used “ ~ 

dial_busy: 

DEC [dial^str^_num] ; reuse the last 

dial string 

MOV [sngstftnJ,OFFSET ModemCalllnit 

RETN 

ENDIP 


IF 1 


dial_busy: 
dial~error: 
dial~no_carr 
cnct~error: 
END IF 


;MOD DBOYD 
;MOD DBOYD 
;MOD DBOYD 
;MOD DBOYD 


50:95.02.22 

55:95.04.12 

55:95.04.12 

55:95.04.13 


dia1_no_tone: 

MOV [sngdlytmr] 

redialing 

MOV (sngstftnJ, 

before redialing 


, TM1SEC ; delay 1 second before 

OFFSET ModemFindlnit ; search for modem 


RETN 


IF 0 

;MOD. DBOYD 55:95.04.12: 

j to Allow 8 prefix to work on 9 prefix PBX's and direct dial, treat 
; the responses below the same as no dial tone so that the next pre¬ 
dial 

; string will be used 

diai_error: 

dial no carr: 

ENDIF “ 

cmrxpktto: ;ADD CCOTI 48:95.02.07 

MOV [sngstftn],OFFSET snfsnrst 

* MOV [cleanup routine],OFFSET ActiveRoutine 

MOV ( sngclst ]7 SNCALLFAIL 

RETN 


0 ;MOD DBOYD 55:95.04.13 

cnct error: 

ENDIF 
cnct_eot: 

MOV [sngstftn],OFFSET snfsnrst 

* M0V [cleanup routine],OFFSET ActiveRoutine 

RETN 


dial_server: 

cnct*enq: 

cnct“nak: 

cnct~resend: 

“ MOV [sngstftn],OFFSET snftxchkin 
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RETN 

cnct_ack: 

MOV 

RETN 

IF 0 

enct hold: 

“ MOV 

timeout. 

RETN 

END IF 
ENDS 
END 
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(angstftn],OFFSET anfgetpkt 


C receive_tick_countJ ,0 


Reset 
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• Copyright (c) Absolute Software 1994, 1995 
« 

* SNTLSTRT.ASM 


?* 

?* 

/* 

;* 

;* 


Contians routines for using the sentinel's string tables. 
HISTORY: 

1995.09.05 - CCOTI 
Created. 


15 

IDEAL 

%NOLIST 
include 
20 include 

include 
include 
%LIST 

25 SEGMENT SNTL SEC BYTE PUBLIC 'CODE' 


"SENTINEL.INC" 
"SNTLSTRT.INC" 
"SNTLDATA.INC" 
"SNTLBUFF.INC* 


30 
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; COMTRANSCHECK - check result of transmission 
; PURPOSE: 

* Thie function checks the result of a transmission between the 
Sentinel 

; and the modem. It test modem responses against a table of 
strings. More 

; PARAMETERS: 

; BX * the beginning of the string table (more than one table is 

supported) 

; RETURNS: 

; CF * 1 if response is not completely received 

; CF * 0 and AL * 0 if time-out without a match 

; CF » 0, AL « index of match in response table (1 « last strina 

in table) * 

GLOBALS REFERENCES: 
receive tick_count 
■ngrxbu7tl “ 
sngrxbufhd 

GLOBALS MODIFIED: 

sngrxbuftl - if a string is found, set past the found string. 

BIOS CALLS: 

None 

DOS CALLS: 

None 

PROCEDURE CALLS: 

buf_inc_ptr, buf_getchar 

HARDWARE ACCESS: 


SUBSTITUTE SHEET 










- 102 - 


None 
NOTES: 

***************< 




************* 



ASSUME 

CS:SNTL_SEG, 

10 

PROC ComTransCheck 



CLD 




increment 



15 

PUSH 

DS 


POP 

ES 



MOV 

AL, 

[BX-1) 


to compare 



XOR 

CH, 

CH 

20 

below) 


XOR 

AH, 

AH 


25 


30 


35 
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M»tr_loop_«t«rt: 

; Initialize tha inner loop. 

SI # [.ngr*buftl} 

MOV DI,(BX| 

ADD BX,2 

MOV Ct,(0I-l] 

@@char_loop start: 

~ SI,(sngrxbufhdl 
Spsb ffer_overrun 

f }“ ffunmatched byte 

@@char_loop~start 

@@found_match: 

MOV (sngrxbuftl] ,si 

eSclear carry: 

CLC 

RET 

86buffer overrun: 

INC ah 

found 

fGunmatched byte: 

'* H “ V *dec cK * Ck ^ a11 of ‘he strings? 

eestr_loop_start 

eeno_match: 

; C £* ck if we havc timed out. 

CMP (rx.rxxtmr], 0 
JE 00ciear_earry 

' Ch * C OR if WB n fS d A H° con,ume * character. 


l set CMPSB pointers to 
; get es ■ os 

; AL • the number of strings 
; aero ch (CL is defined 
; make AH zero 

; DI ■ the string to check 
' c * “ che string len 


; at the end of the buffer 
; this increments SI end DI 
; this string doesn't match 


» set return status 
; exit 


; AH I- 0 if no match has been 

/ decrement string counter 
; AL - o 
timed out, exit 


found 

eeexit 


JNI 

CALL 


AH,AH 

eeexit 

buf_getchar 


AH !■ 0 if no match was 


STC 

RET 


set return status 
exit 
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CHOP ComTransChack 

ASSUME NOTHING 

ENDS 

END 
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;• Copyright (c) Absolute Software 1994, 1995 

• • 

;• SNTLTIHR.ASM 

• * 

!* Contains Timer XSR and related subroutines. 

;• 

;• HISTORY: 

;• 1995.09.OS - CCOTI 

;• Created. 


IDEAL 


ANOLIST 

include "SENTINEL.INC* 
20 include "SNTLTIHR.INC" 

include "SNTLDATA.INC* 
include “SNTLJTBL.INC" 
include "SNTLAPI.INC" 
include "SNTLCOMM.INC" 
25 include "SNTLCOMV.INC" 

include "SNTLBUFP.INC" 
include "SNTLSTRT.INC" 
«LIST 

30 ;TCN Nov 1/95 

MACRO TCN EMIT Ch 


PUSH 

AX 

MOV 

AL # ch 

CALL 

TCN PutChar 

POP 

AX “ 


ENDM 

;TCN Nov 1/95 


40 SEGMENT SNTL_SEG BYTE PUBLIC 'CODE' 

ASSUME CS:SNTL_SEG, DS:NOTHING, ES:NOTHING 

;TCN Nov 1/95 


PROC TCN Putchar NEAR 


PUSH 

AX 


PUSH 

BX 


MOV 

AH, OEh 

; Output a character 

MOV 

BH,0 

push 

bp 

;TCN - Por old BIOS 

INT 

lOh 


pop 

bp 

;TCN - Por old BIOS 

POP 

BX 


POP 

RETN 

AX 


ENDP TCN Putchar 



;TCN Nov 1/95 


60 


65 


;• TMFISR - timer interrupt service routine 
• * 

;* PURPOSE: 

;* This function implements the timer ISR that is hooked to the 

system 
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;* 
; • 


; * 
/* 
;* 
/* 
/* 
;• 

;* 
• • 


timer. This function and performa the following: 


Checks the Sentinel' 
Executes one of the 
SNSTACTIVE 

ActiveRoutin«: 


® state <Sentinel state> 

following eubroutines baaed on the state: 


SNSTALERT 

PortPindlnit: 
PortFind 
CheckNextPort: 


SNSTCALL 

ModemFindlnit: 
ModomFind: 
ModemFindError: 


Modemlnitlnit: 
Nodemlnit: 
HodemlnitError: 
ModemCalllnit: 
ModemCall: 
ModemOialError; 


SNSTCONNECT 

* * snftxchkin: 

r * ModemConnect: 

* * ModemConnectError: 

? * SNSTERROR 

ErrorRoutine: 

;* PARAMETERS: 

;* Hone 

* * 

;* RETURNS: 


;* Nothing 

;* REGISTERS DETROTED: 
;* None 


;* GLOBALS REFERENCED: 

?* angincmiar 

; * Sentinel_state 

;* sngstftn 

;* time_count 

#* activation period 

;* modem default port 

;• port table 

;* sngmHmprtadd 

;* sngmdmprtint 

;* modem_init str 

init_result table 


wwsALS MODIFIED: 

•* ! et t0 the P° rt curre ntly being ueed. 

' Sentinel_8tate - aet to the now atate of the Sentinel 

action?" 9 " " #t t0 th * routine that will perform the Lxt 


* * sngadmprtadd * 

(sngmdmprt) 

7* sngmdmprtint - 

(sngmdmprt) 


set to the address used by the current port 
eet to the interrupt used by the current port 


snginemisr - 
eend buf len 


reset to 0 before crafier is hooked in. 
- reset before cmfisr is hooked in. 
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■ngprvcom - stores the old com ISR before hooking in cafisr. 


;• BIOS CALLS: 

;* None 

»* 

;• DOS CALLS: 

; * Nons 

;* 

;* PROCEDURE CALLS: 

7* buf_flush 

; * Swaplnt 

;• ComTransInit 

;* ComTransCheck 

• * 

;• HARDWARE ACCESS: 


7* UART (I/O MCR, OUT IER), I/O 

; t 




PROC tmfisr TAR 
IF Debug 

INC [CS:TimerISR count] 

END IF 


CMP 

[CS:sngsuspend], 0 

suspended? 

JNE 

TimerAbort 

CMP 

[CS:sngincmisr], 0 

comm. ISR? 

JNE 

Timer Abort 

PUSH 

DS 

PUSH 

ES 

PUSHA 


PUSH 

CS 

SNTL COM SEG 

” POF 

DS 

ASSUME DS:SNTL_SEG 

CL I 


CMP 

[sngcomhk], 0 

interrupt? 

JE 

e@tmcont 

still have the 

hook 

MOV 

BX, (engmdmprtint] 

SHL 

BX, 2 

get ISR vector 

XOR 

AX, AX 

MOV 

ES, AX 

MOV 

AX, (ES:BX1 

vector 

CMP 

AX, OFFSET cmfiar 

JNE 

eetnrat 

MOV 

AX, DS 

CMP 

AX, [ES:BX+2] 

vector segment 


PIC 


; Entry point for TimerlSR. 

; increment debug timer 

; is the Sentinel 
; yes, exit 

; is the Sentinel in the 
; yes, exit 
; save registers 

; set DS * CS « 

; halt interrupts 
; have we hooked the comm. 

; no, continue 

; yes, determine if we 

? the IVT entry to test 
; BX - the IVT offset to 

; clear ES 

; get offset of installed 

; is it our routine? 

; no. Reset sentinel 
; get our segment 
; compare to installed 
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JNE @@tmrst 

Sentinel 


if not equal, reset 


JMP 0§tmcont 

interrupt, continue 


we still have the 


00tmrst: 
continue 
MOV 
MOV 
MOV 

hooked flag 

00tmcont$ 

STI 

CMP 

JE 

timers 

MOV 

machine 

INT 

CMP 

JNE 

exit 


; reset the Sentinel and 

| sngstftn), OFFSET ActiveRoutine 
[ Sentinel_state], SNSTACTIVE 

[sngcomhk], 0 ; clear the the comm. 


[win_flag],0 
0@chktmrs 

AX,1683h 

2Fh 

BL, [win_vm) 
TimerExIt 


? restore interrupts 
; are we in Windows? 

; no, go check running 

; yes, determine virtual 


; should be a word 11 
; not in virtual machine 1, 


00chktmrs: 

CMP [tx.txxtmr], 0 

running? 

JE 00nxtmrO 

DEC [tx.txxtmr) 

transmit timer 


; is the transmit timer 

; no, continue 
; yes, decrement the 


00nxtmrO: 

CMP [rx.rxxtmr), 0 

running? 

JE @@nxtmrl 

DEC [rx.rxxtmr] 

delay timer 

00nxtmrl: 


CMP (sngprtdlytmr], 0 

running? 

JE 00nxtmr2 

DEC (sngprtdlytmr) 

delay timer 

00nxtmr2: 

CMP [sngdlytmr], 0 

timer running? 

JE 00gostate 

function 

DEC [sngdlytmr] 

JMP TimerExit 

handler 

0@go8tate: 

CALL (sngstftn) 

function 

TimerExit: 

POPA 

ASSUME DS:NOTHING, ES:NOTHING 
POP ES 

POP DS 


; is the receive timer 

; no, continue 
; yes, decrement the port 


; is the port delay timer 

; no, continue 
; yes, decrement the port 


; is the Sentinel delay 

; no, execute state 

; yes, decrement timer 
; no, call previous timer 


; execute the state 


; recover registers 
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ENDP tmfiar 

5 ASSUME NOTHING 
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;• SNFWTFORXMS - wait for XMS 


?• 

;• PURPOSE: 

loaded***^* * unct *' on for the extended memory manager (XMS) to be 

tMCk the th “ n h °° k8 int#rrupt 2Fh - Thi * hook Iowa the Sentinel to 

cownunicate V * nd ° Ut ° f WINDOWS ' and ASC utilitiea to 

• with the utility. 

* 

• PARAMETERS: 

• None 

• 

* RETURNS: 

* Nothing 

* 

* GLOBALS REFERENCED: 

* 

* GLOBALS MODIFIED: 

* 

* BIOS CALLS: 

* None 
7* 

;• DOS CALLS: 

; * None 

• * 

;* PROCEDURE CALLS: 

;* None 

;* 

;* HARDWARE ACCESS: 

;* Nothing 

;* 

7 * ""********************************•******•**•*•*****•***** 

********** ******* 


ASSUME CS:SNTL_SEG, DS:SNTL_SEG, ES:NOTHING 
;••• STOLEN BY CCOTI 
ASSUME NOTHING 

f **********************‘************************* 


;* SNFWAIT - wait for timer to expire 
;* 

;* PURPOSE: 

^ for# ThiB '“action waita for the delay timer, angdlytmr, to expire 

j* allowing the Sentinel to proceed. Thie function ia uaed to 
aeiay the 

Sentinel from activating on power-up and when entering and 
exiting 


SUBSTITUTE SHEET 






• 109- 


5 

10 

15 

20 

25 

30 

35 

40 

45 

50 


ninber W o? DOWS ’ SlnC * th * delay may b * startad at *ny time 

reasons, when the delay expires the Sentinel goes to 

; Darora going back to ActiveRoutine(). 

t * 

;* PARAMETERS: 

;* None 

;* 

;* RETURNS: 

; * Nothing 


for a 
enfsnrat() 


* GLOBALS REFERENCED: 

* 

* GLOBALS MODIFIED: 


* BIOS CALLS: 

* None 


* DOS CALLS: 

* NONE 

* 

* PROCEDURE CALLS: 

* None 


HARDWARE ACCESS: 
None 




ASSUME CS:SNTL_SEG, DS:SNTL_SEG, ES:NOTHING 


IF 0 

PROC snfwait NEAR 


CMP 


expire 

JNE 

@@reset: 

MOV 

; mov 

Mexit: 

RETN 


{sngdlytar], 0 

@@exit 


[sngstftn],OFFSET enfsnrat 
(cleanup_routine).OFFSET ActiveRoutine 


; wait for delay timer to 
; not yet expired, exit 
; reset the Sentinel 


exit 


ENDP snfwait 

ASSUME NOTHING 

ENDIF 


55 


60 


65 


ASSUME CS:SNTL_SEG, DS:SNTL_SEG, ES:NOTHING 
PROC ActiveRoutine NEAR 


Check if the activation period has been exceeded. 
ROR [cycle varl.l 

JNC 9@end “ 

Get current date and time. 


MOV AH,4 

INT lAh 

JC BBend 

MOV (now year],CL 

XCHG DL.DH 


; Get RTC date. 
; Store year. 
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MOV [WORD now month],DX 

MOV AH, 2 

INT lAh 

JC @@end 

XCHG CL,CH 

MOV [WORD now_hour J,CX 


; Store month and day. 


; Store hour and minute. 


' Check if next call date has been passed• 
MOV SI, OFFSET next call date 

MOV DI, OFFSET now_3ate - 

CALL CmpDates ” 

JNC §£end 


BGalert: 

MOV [Sentinel state),SNSTALERT 

to alert. “ 


Date passed, set 


Mend: 

; Check if we've been activated. 

CMP (Sentinel stateJ,SNSTALERT 

JNE Mexit 


Check state. 


Mactivated: 


, j»et tne sentinel to the ALERT state. 
IF 0 


MOV 

MOV 

port 
END IF 


AX,(modera_default port) 
( sngmdmprt), AX 


; set first 


MOV 

pre-dial string 
MOV 

function 

Mexit; 

RETN 


(BYTE dial_str_num) ,DIAL_STR_TABLE_SIZE 
(sngstftn),OFFSET PortFindlnit 


; set first 
set next state 


ENDP ActiveRoutine 


PROC CheckNextPort NEAR 


MOV 

INC 

CMP 

JB 

XOR 

assign_port: 
MOV 

check 


AX,(sngmdmprt) 

AX 

AL, PORT_TABLE_S 12E 
Massign port - 
AX,AX 


(sngmdmprt), AX 


; start back at first port 
; the modem port to 


port 


MOV 

RETN 


? go look for modem on the 

(sngstftn),OFFSET PortFindlnit 

; exit 


ENDP CheckNextPort 


60 


65 


; 


PROC PortFindlnit NEAR 
; initialise PortFind variables 
previously). 


(based on sngmdmprt which was set 
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NOV 

[sngclst], SNPRTSRCH 

; set call status 


MOV 

BX, [sngmdmprt] 



SHL 

BX, 2 


5 

ADD 

BX, OFFSET port table 



MOV 

AX, [BXJ 



OR 

AX, AX 

; check if port is valid 

10 

JZ 

CheckNextPort 


MOV 

address 

[ sngmdmprtadd ) , AX 

; store current port 


MOV 

AX, [ BX+2 ) 


IS 

MOV 

interrupt 

l sngmdmprtint], AX 

; store current port 

MOV 

[ Bngstftn],OFFSET PortFind ; set next state 


MOV 

seconds 

( sngprtdlytmr ) , TM5SEC 

; set port' delay timer to 


RETN 



20 

ENDP PortPindlnit 


25 

» 

i 

7 

PROC PortFind 

NEAR 



; Check if the port exists. 



r • • • 

; NOT IMPLEMENTED - NEEDED FOR PCMCIA 

30 

t • • • 




; TCN_EMIT ' 1 ' 

;TCN Nov 1/95 

35 

MOV 

address 

DX, [ sngmdmprtadd ] 

; DX - current port's 


INC 

IN 

DX 

AL, DX 

; DX ■ current port's IER 


IODELAY 

; AL ■ IER port status • 

40 

AND 

not exist 

AL, OPFh 

; if IER ■ Oxff, OART does 


CMP 

AL, OPFh 



JNE 

availability 

00chkprtavl 

; port exists, go check 

45 

•IMP CheckNextPort 

check next port 

; port does not exist, go 


CBchkprtavl: 

use 


i check if the port is in 

50 

; TCN_EMIT '2 ’ 

;TCN Nov 1/95 

55 

MOV 

SUB 

CX,(sngmdmprtint ] 

CL,08h 

; test PIC IMR first 
; get bit of interest 

MOV 

BL,Olh 



SHL 

BL,CL 

; bit mask ready 

60 

IN 

IODELAY 

AL,21h 

; get primary PIC IMR 

AND 

disabled 

AL, BL 

; bit set *> interrupt 


JNZ 

@$port_idle 


65 

; TCN_EMIT 

*2 * 

,'TCN Nov 1/95 
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next 

MOV DX,(sngmdmprtadd} 

address 

INC OX 

IN AL,DX 

IODELAY 

OR AL,AL 

JZ @@port_idle 

i TCN EMIT '4' 


; PIC IMR bit a«t, teat IER 

; OX “ current port's 

; DX - current port's IER 
; AL • IER port status 

« Are any IER bits set? 

; if no, port is idle 

;TCN Nov 1/95 


15 bits 


PIC IMR bit set, and IER 


20 


25 


MOV 

address 

ADD 

IN 

IODELAY 

TEST 

JZ 


OX,(sngmdmprtadd] 

OX,MCR 
AL,DX 

AL,08h 

88port_idle 


TCN EMIT '5' 


l set, test OUT2 next 

; DX ■ current port's 

; DX - current port's MCR 

; AL ■ MCR port status 

; is MCR OUT2 bit set? 

; if no, port is idle 

;TCN Nov 1/95 


30 

35 


JMP CheckNextPort 

@@port_idle: 

; TCN_EMIT '6' 

CMP Isngprtdlytmr), 0 

for a set period 

JNB Mexit 

attempted 


; all checks failed 

;TCN Nov 1/95 
; port must be available 
; before a call is 


40 


eight 


45 


MOV DX, (sngmdmprtadd) 

ADD DX, LCR 

MOV AL, 00000011b 

OR AL, 80h 

OUT DX, AL 

IODELAY 


; set port for no parity, 

; data bits, and 1 stop bit 
; get address of LCR 

; set LCR for N81 

; set DLAB 
; set value in LCR 


50 


55 


60 


65 


9600 bps 


; force 9600 bps 
} OX - f / ( 16 * bps ) 

; - 1.8432 MHZ ( 16 • 


MOV DX, (sngmdmprtadd) 

ADD DX, BRDL 

MOV AX, OOOCh 

OUT DX, AX 

IODELAY 

MOV DX, (sngmdmprtadd) 

ADD DX, LCR 

IN AL, DX 

IODELAY 

AND AL, 7Fh 


• OxOOOC 

get address of DL LSB 
set new divisor 


get address of DL LSB 
get value in LCR 
clear DLAB 
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OUT DX, AL 

XODELAY 


•et value in LCR 


8ginit_ok: 

; Clear any pending errors in the UART. 
MOV DX, [sngmdmprtadd] 

ADD OX,LSR J 

IN AL,DX 

XODELAY 


get address of LSR 


; Hook into the port, first 
CALL buf_flush 

MOV (sngincmisr],0 

MOV [send_buf_len),0 

MOV BX,(sngmdmprtint] 

MOV DX,OFFSET sngprvcom 

•tore the old vect. 

MOV CX,OFFSET cmfisr 

vector. 


init and install the interrupt vector. 

; flush the receive buffer 


The int to install. 
DS:0I - the address to 


US :CX ■ the new coin 


CALL Swaplnt 

MOV [sngcomhk], 1 


set the comm, hooked flag 


CLI 

N° v OX, (sngmdmprtadd 1 
ADD DX, HCR 

IN AL, DX 

XODEXAY 

OR AL, 00001011b 

OUT DX, AL 

UART 

XODEXAY 


; disable interrupts 
; get address of MCR 


; interrupts enabled in the 


MOV CX,(sngmdmprtint1 

mask in PIC 

SUB CL,08h 

MOV BL,01h 

SHL BL,CL 

NOT BL 

IN AL,21h 

XODELAY 

AND AL, BL 

OUT 21h,AL 

PIC 

XODELAY 


; clear (enable) IRQ bit 


; interrupts enabled in the 


MOV DX, (sngmdmprtadd] 

INC DX 

MOV AL,00000001b 

received 

OUT OX, AL 

IODELAY 


; get address of IER 
; interrupt when data 


STI 

MOV 

MOV 

attempting to 
MOV 

Mexit: 

RETN 

EN0P PortFind 


; enable interrupts 


[Sentinel state], SNSTCALLINC 

(sngdlytmr), TM1SEC ; delay 1 second before 


[sngstftn], OFFSET ModemFindlnit ; find modem 
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PROC ModemPindlnit NEAR 


MOV [sngclst], SNMOMSRCH 

MOV BX, OFPSET modem find str 

string “ - 

CALL cmfprpndm 
structure 

HOV [tx.txxnxtat], OFFSET ModamFind 
transmission 


; set call status 
r get a pointer to modem 
; prepare transmit 
; set next state after 


RETN 


ENDP ModemPindlnit 


; 


PROC ModemPind NEAR 


MOV 

CALL 

JC 

MOV 

response 


BX,OFFSET command result table 
ComTransCheck “ ” 

00end 

BX,OFPSET find_jump_table 


«ov [sngdlytmr], 9 
spec. 

0.5 sees 


command 


JMP JumpTable 

0@end: 

RETN 

ENDP ModemPind 


; check for received data 

? data not received yet 
; check for acceptable 

;TCN Nov 1/95 
/According to Hayes Modem 

?we should wait at least 

sending the "ATZ" 


PROC Modemlnitlnit NEAR 

; Attempt to initialize the modem 

MOV [sngclstJ, SNMDMINZT 

MOV BX, OFFSET init str num 

string - - 

DEC [BYTE BXJ 
0Z preset 
over 


structure 


(send modem_init_str). 

? set call status 
; get the index of the next 

# wrap-around and start 

; prepare transmit 
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MOV 

AX, 

[BX] 

string 


SHL 

AX, 

1 

ADO 

BX, 

AX 

MOV 

BX, 

(BX] 


CALL cmfprpmdm 
structure 

MOV (tx.txxnxtstJ, OFFSET Modemlnit 
transmission 


; get a pointer to the next 


; prepare transmit 
; set state following 


RETN 


15 


08reset: 

MOV [BYTE BXJ, INIT STR TABLE SIZE 
strings “ — ~ 

MOV (sngstftn], OFFSET ModemCalllnit 
RETN 


retry initialization 


20 


ENDP Modemlnitlnit 


25 


30 


35 


40 


PROC Modemlnit NEAR 
; Check for reply. 

MOV BX,OFFSET mdm init result table 
CALL ComTransCheck'* " “ 

JC 08end 
received yet 

MOV BX.OFFSET init jump table 

JMP JumpTable ~ “ 

00end: 

RETN 

ENDP Modemlnit 


data not 


45 

50 
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PROC ModemCalllnit NEAR 

< Attempt to dial (send modem prs~dial string). 

MOV (sngclst], SNMDMPD , set call status 


e@getatr: 

MOV BX, OFFSET dial atr nurn 
string ~ “ 

DEC (BYTE BX] 

JZ @@reset 
over 


; get the index of the next 
? wrap-around and start 


MOV 

AX, 

(BX) 

SHL 

AX, 

1 

ADD 

BX, 

AX 

MOV 

BX, 

(BX] 

CALL 

cmfprpmdm 


structure 

MOV [tx.txxnxtst], 
transmission 


; prepare transmit 

OFFSET ModemCallInit2 ; set state following 
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RETN 




@@reset: 




MOV [BYTE dial str num 1,DIAL STR TABLE 

.SIZE 

5 

JMP gggetstr ~ — 

RETN 




ENDP ModemCallInit 



10 

0 



IS 

f 

PROC ModemCallInit2 NEAR 



MOV (sngclst], SNMDMDL 

t 

set call status 

20 

MOV BX, orFSET dial_number 

CALL cmfprpmdm ~ 

■tructure 

i 

i 

get the packet length 
prepare transmit 

MOV [tx.txxnxtst], OFFSET ModemCall 

tranamiasion 

t 

set state following 


time and 

• 

* 

override default response 

25 

MOV Jrx.rxxtmrJ, TM40SEC 

raaponae 

9 

wait 40 seconds for 


RETN 



30 

ENDP ModemCallInit2 




? 


35 

9 





PROC ModemCall NEAR 



40 

MOV 

MOV 

CALL 

JC 

[sngclst], SNWTCON 

BX,OFFSET dial result table 
ComTransCheck “ 

Mend 

» 

f 

# 

set call status 

Check for reply* 

Data not received yet. 

45 

MOV 

JMP 

BX,OFFSET dial jump table 
JumpTable “ 


attempt to parse data 

Mend: 





RETN 




50 

ENDP ModemCall 




55 

0 



PROC enftxchkin NEAR 


60 

; Query from server received by this 

point, send data packet 

structure 

; prepare transmit 


MOV AL, (sngdatalen) 
length 

; get the data segment 

65 

ADD AL, 2 

subtype 

; add 2 for type and 
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MOV [BYTE LOW tx.txxpktlen1, AL 
MOV (BYTE HIGH tx.txxpktlen], 0 
MOV (tx.txxbufpj, OFFSET sn data start 
MOV (tx.txxnxtatJ, OFFSET snfgetpkt ; 
transmission 


MOV (tx.txxpkttyp J, CMTXDATPKT 
MOV (tx.txxtmr], TM3SEC 


••t state following 

transmitting data packet 
transmission timeout 


MOV (sngstftn], OFFSET cmftx' 

MOV (rx.rxxtmr), TM10SEC 

response 

MOV (rx.rxxstateJ, OFFSET cmfpack 
expected ACK 


next state: tranemit 
w *it 10 seconds for 

receiver state: process 


RETN 


ENDP snftxchkin 


f 

; SNFGETPKT * collect packet data 
* 

; PURPOSE: 

timeout” 1 * functions coll#ct8 packet data and determines if a receive 
? has occurred. 

; PARAMETERS: 

; None 

t 

; RETURNS: 

; Nothing 

; NOTE: 
i 

* W **************************************«#***m**»^^AA 

********** ************* 


PROC snfgetpkt NEAR 

MOV [sngclst), SNWTNCD 
CMP (rx.rxxtmr), 0 
JE @@timeout 

CALL buf^getchar 
JC £§exit 

CALL [rx.rxxstate) 

RETN 

00timeout: 

MOV [sngstftn], OFFSET cmftx 
function 

MOV [tx.txxpkttyp), CMTXDLENQ 

send ENQ 

00exit: 

RETN 

ENDP snfgetpkt 


; set call status 
; test for timeout 
; timed out 

; retrieve a character 
; none available, exit 

; run the rx state function 


; set next Sentinel state 
; set transmitter state: 
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PROC snfsnrst NEAR 

; Reset the Sentinel to a known stete (ACTIVE), assume nothina 
CALL buf flush * 


CMP (sngcomhk), 1 

port 

JNE gecont 


interrupt 

MOV BX,[sngmdmprtint] 

XOR DI,DI 

PUSH DS 

LOS CX,(sngprvcom] 

install. 

CALL Swaplnt 

POP OS 

MOV (sngcomhk), 0 

flag 
BBcont: 

MOV OX,(sngmdmprtadd1 

INC OX 

XOR AL, AL 

OUT DX, AL 

IODELAY 

ADD DX,MCR-IER 

OR AL,03h 

to get <NO CARRIER> 

OUT DX,AL 

IODELAY 


; have we hooked the cocam. 

; no, continue 
; yes, unhook the com 
; the interrupt to install 

; DS:CX - the com vector to 

; clear the comm, hooked 

; DX « IER 

? Disable all interrupts. 

; DX « MCR 

; leave RTS & DTR asserted 
; MCR OUT2 bit - 0 


MOV 


[sngstftn], OFFSET ActiveRoutine 


RETN 

ENDP snfsnrst 


ENDS 


END 
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Electronic Article Surveillance System 
Source Code for Host-side 


Visual C+ + (Microsoft) 


r \ 


Description: 

Source code for CompuTrace Server and DBServer. 
Copyright: 

Copyright 1993-1995 Absolute Software Inc. All 
Rights Reserved. 



/define INCL NOPMAPI // no PM in this program, 

/define INCL~DOS 
/define INCL~BSE 
/include <os2.h> 

/include <fstream.h> 

/include <time.h> 

/include <server.h> 

/include <DB_Objects.HPP> 

/include <CTMessage.HPP> 

///include <packet.h> 

/include "CTJTrans.H" 

FLAG fQueryCTIDStatus( MessagePipe (Pipe, const 
QueryCTIDStatusMsg (Status, CTIDStatusResultMsg (Result 
); 

FLAG fStoreMonitorEvent( MessagePipe (Pipe, const 
StoreMonitorEventMsg &Store, StoreResultMsg (Result ); 
FLAG fSignalQuit( MessagePipe (Pipe ); 

void AssignTS( TTimestamp (ts, const SNTL_DATE (Date ); 
void AssignSNTL DATE( SNTL DATE (Date, const TTimestamp 
its ); 

// Temp function. 

void ProcessClient( TPort (Port, TConnectlnfo 
(Connectlnfo, CTID_TEXT *text ); 

extern MessagePipe *pipe; 

// 

// SntlConnect: called when a CONNECT comand has been 
received, this function processes 
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server and a 


// * transaction between the 

Sentinel client. 

//. 

void SntlConnect( TPort &Port, MessagePipe 
TConnectlnfo *cnct_info ) 

WORD msg_type; 


iPipe, 


DosGetDateTime( tenet info->start tine ) ♦ 
Fill start time. ~ 


II 


TPacket packet( Port ); 


// 


// 

// 


while (TRUE) { 

// Get a packet. 

if (packet.rGetPacket () != TPacket::TRANS ACK) 
cout « "Packet Error" « endl; “ ' 

return; 

> 

// Determine packet type. 

^ e J; CbC ° P r reXt( tms 9_type, sizeof( msg type 
switch( msg_type ) { - ** 

case CTIDJTEXT_TYPE: 

// Create a new client object. 

r ent ^ Port ' Pi P«* *cnct_info 

Get CTID Text and add to Client object. 
CTID_TEXT Text; J 

packet.cbCopyText( tText, sizeof( Text ) 
Client.SetCTID( Text ); 

ProcessClient. 

ProcessClient( Client ); 

ProcessClient( Port, *cnct info, tText )• 
return; ~ '' 

default: 
return; 


// 


// 


) ) 


) 


) 


void ProcessClient( TPort tPort, 
tConnectlnfo, CTID_TEXT *text ) 

SNTL_DATE next_call; 


TConnectlnfo 


// ENTER APPLICATION LAYER... 


// Query the Client state. 

QueryCTIDStatusMsg StatusMsg; 

>sn(i) t << M iI)^ TID * (UL0NG)text “ >sn f°] + ((ULONG)text- 
CTIDStatusResultMsg Result; 

^ «° Ut w Q uer y CTIDSt atus for CTID " « StatusMsg.CTID 
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if co« U << y ^ DStatUS( * pipe - s «tus« sg . Result )) , 

} C0Ut << Err °r in QueryCTIDStatus!" << endl; ’* 

else { 

cout « "CTIDStatusResult Received " « Pn Hi . 
endl; << " StatUS " ” << (STRING)Result.States « 

endl; C ° Ut << " PeriodDays - " « Result.PeriodDays « 

_ cout << " PeriodMinutes = " << 

Result.PeriodMinutes << endl; 

/o TO T„ COUt ^ " StolenFlag'- « « 

(STRING)Result.StolenFlag « endl* 

B , c J ut f < " SpecialProcess = •• << 

Result.SpecialProcess « endl- 

, C0Ut ** " ° r<3nam ' ” << »«ult.Orgnu,n_n « endl; 

^ NextCa H Message back to the Client 

CTTimestamp next_ts; tiient. 

AssignTS( next_ts, text->nov date ); 
if (next ts.usYear() < 1900) { /< Tf 

valid substitute the local date instead^ 1S not 

} next - ts " Connectlnfo.start_tijBe;" 

Result • PeriodDays, o, 
AssignSNTL_DATE( nextcall, next_ts ); 

fn??S? tePaclcet( Port ' next call ) ; 

SntlDisconnect( Port, Connictlnfo ) ; 

// Store the Monitor Event. 

StoreMonitorEventMsg Event; 
vent.StoreAsStolen = Result.StolenFlaa- 
Event.StoreAsExpire * FALSE; 

Event.LicenseStatus = Result.Status• 

E^n? n I S( Event - c li®ntTS, text->now date )• 

0, Result^PeriodMinutes d ^° Date ^ °' °' Res «lt-PeriodDays, 
Event.NextCallciientTs'n - next ts- 
Event.CTID = StatusMsg.CTID; “ 

Event.TelcoTS__n.Assign( Event.ServerTS.usYear(), 

ConnectInfo.end.month, 

Connectlnfo.end.day, 

Connectlnfo.end.hour, 

Event.Durationsec n - 0 . ConnectInf °-<=nd.»inute ); 

Event.CallerID_n « (const 

Cha ^it“SS-f I ^ ),C<,nn,ctInto -' :nd -" u ” p *r; 

Event.LogFlag = FALSE; 
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Event.Environments » "DBS-9508"; 

Event.ErrorCnt ■ 0; 

^ StoreResultMsg ResultMsg; 

cout « endl « "Storing the MonitorEvent... "; 

if (!£StoreMonitorEvent( "pipe. Event, ResultMsg )) { 
cout << "Error in StoreMonitorEvent!" « endl; 

10 > ' 

else < 

cout « "StoreResult * " « (ResultMsg.Result "> 
"TRUE" : "FALSE") « endl; 

} 

15 > 


20 


25 
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void SendDatePacket( TPortfi Port, const SNTL_DATE& date ) 
NC_PACKET packet; 
packet.header.stx = STX; 

packet.header.lsb_length « sizeof( NC TEXT ); 
packet.header.msb_length - 0 ; ~ 

packet.text.type - NC TEXT TYPE; 
packet.text.next_call“date”*» date; 

packet.footer.etx = ETX; 
packet.footer.Ire » 0; 

Port.fWritePort( (PVOID)ipacket, sizeof( packet ) ); 


FLAG fQueryCTIDStatus( MessagePipe 4Pipe, const 
QueryCTIDStatusMsg SStatus, CTIDStatusResultMsg SResult ) 

TStream in_strm, out_strn; 

out^strn « Status; 

if T!Pipe.fTransact( out stnn, in stm )) return 
FALSE; 

in_stnd >> Result; 

if (Result.eType() — CTID STATUS RESULT) return TRUE; 
else return FALSE; “ “ 


FLAG fStoreMonitorEvent( MessagePipe &Pipe, const 
StoreMonitorEventMsg 4Store, StoreResultMsg iResult ) 

TStream in_strm, out_strm; 

out_strm « Store; 
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FALSE; (!PiPe ‘ fTranSaCt( out - str ®' in_stnn )) return 
in_strm » Result; 

“ ST0RE - RESULT) return ™«» 

} 

FLAG fSignalQuit( MessagePipe &Pipe ) 

TStream stream; 

CliQuitMsg QuitMsg; 

stream << QuitMsg; 

return Pipe.fSendMessage( stream ); 


void SntlDisconnect( 
fiConnectlnfo ) 

// Drop DTR. 

DosSleep( 500 ) ; 

buffer 


TPort fiiPort, TConnectlnfo 


// Broc - 13 Feb 95 

// Add delay to let modem clear xmt 


Port.fDropDTR(); 


//to fix intermittent modem fault. 


cout « "Disconnecting..." « flush; 

r. • i ? 0sG ? tD * teTime f TConnectlnfo. end time 
Fill end time. ~ 

DosSleep( 200 ); 

// Raise DTR. 

Port.fRaiseDTR(); 

} 


// 


// *** helper functions. 

UCHAR BCD2ToUChar( BYTE bed ) 

// Convert a two digit bed number to decinal 
^ return (bed » 4) * io + (bed & OxOF); 

BYTE UCharToBCD2( UCHAR dec ) 


// Convert a 8 bit decimal number to bed. 

^ return (dec % io) + (((dec / 10) % io) « 4); 

USHORT BCD4ToUShort( WORD bed ) 
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" r^n 4 ,!! 5 OUr dl,it bed nu “ b « to decimal. 

r r^r^\ ;,T^r^?su,y> • 

WORD UShortToBCD4( USHORT dec ) 

/ ioo, * ii, « a , 10 i ioil] i “} « «),; <««*= 

void Aaei,nTS( TTim.at.mp its, conat SMTL_DATE iDate , 

ts.Assign( BCD2ToUChar( Date.year ) 

BCD2ToUChar( Date.month ), 

BCD2ToUChar( Date. day ), 

BCD2ToUChar( Date.hour ), 
j BCD2ToUChar( Date.minute ) ); 

void ) Aaa ig n S »TL_DATE( sntl.date .Data, conat TTim.at.mp 


Date.year 
Date.month 
Date.day 
Date.hour 
Date.minute 


» UCharToBCD2( ts.usYearO % 100 )• 
“ UCharToBCD2( ts.usMonth() ); 

■ UCharToBCD2( ts.usDayf) )• 

" UCharToBCD2( ts.usHour() ); 
UCharToBCD2( ts.usMinute() ); 


} 

inline BYTE HiHibbl.( BYTE b , ( return (BYTE) (,b i oxFO) 
inline BYTE LoNibble( BYTE b ) ( return (BYTE)(b 4 OxOE); 

void AddDaye( SNTL.DATE *n.xt_call, int day, ) 

static BYTE days per month[18] ■ / 

0x31, _ i j \ 


0x28, 



0x30, 

0x31, 

0x30, 

// 

0x03 

0x31, 

0x30, 

0X31, 

// 

0X06 

0x30, 

// 

0x09 

0X00, 

// 

OxOA 

0x00, 

// 

OxOB 

0X00, 

// 

OxOC 

0X00, 

// 

OxOD 

0X00, 

// 

OxOE 

0x00, 

// 

OXOF 
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0x31, 
0X3 0, 
0x31 


// OxlO - Oct 
// 0x12 - Dec 


}; 

BYTE old_day - next call->day; 
// Save for BCD adjust. 


// 

// 

{ 


Add the days to the current date. 
ne xt_call->day days/ 

if C (!5ext call->dav ! h n ® nd ° f the current »onth. 
(next_call->day > days_per_month[next_call-> m onth]) 


// Add one to month. 

if (+-*-next_call->month > 12 ) { 

next_call->month « 1 ; 
++next_ca11->year; 


ilCAL CdU' 


l- '/7 "oZTi y ” «°y*_per_inontn[next call->monthl 
1# U Rol l over to proper day. “ tnj 


) 

// Adjust the day back to BCD. 

if (LoNibble( next call->day ) > 0 x 9 
n.*t_caU->day ) !. Hlnibbl.f Old day f) 
next_call->day +» 6; -in 


■ i 
i i 


HiNibble( 


// Adjust the month to BCD. 

>»bnlh < «' , 6; ble( neXt-Call->month ) > °x9) next_call- 


// Adjust the year back to BCD. 

+=. gf (LoNibble ( next_call->year ) 


> 

*/ 


it (HiNibble( next call- 
LoNibble( next_call->year 


>year ) 

); 


> 0x9) 

> 0x9) 


next_ca11—>year 
next_call->year 


/define INCL_DOSNMPIPES 
/include <os2.h> 

/include <iostream.h> 
/include <fstream.h> 
/include <string.h> 

/include <server.h> 

/include "DBServer.H" 

/include <usertype.h> 
/include <DB Objects.HPP> 
/include <CTID.H> 

/include <CTIMS.HPP> 
/include <CTMessage.HPP> 
/include <MessagePipe.HPP> 
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FLAG fProcessClientEventf MessagePipe &Pipe, TStream 
SMsgStream ); 


FLAG fProcessQueryCTIDStatus( MessagePipe &Pipe 
QueryCTIDStatusMsg tStatus ); . 

FLAG fProcessStoreMonitorEvent( MessagePipe iPipe 
StoreMonitorEventMsg &MEvent ); K ' 

FLAG fUpdateLicenseStatus( StoreMonitorEventMsgi ); 


// Helper functions. 

FLAG _fCopyTStoDBVars( char *tsstring, short 
CTTimestamp its, STRING varname « "Timestamp" 


♦indicator, 
); 


DataBase DB; 


int main( int argc, char *argv[] ) 
if (argc !* 3) { 

cout « "Usage: dbserver <database nane> 
<pipe_name> H << endl; ~ 

} 


DB.SetName( argv(ij ); 

SvrMsgPipeFactory Factory( argv[21, 512. 10 )• 
MessagePipe *pipe; ' 


if (!DB.fConnect()) { 

<<c ” Unabi « to connect to " « argvrn « 
SQLCODE = " « (long)DB.ulSQLCode() « endlj 
return l; ’ 

> 

if (!Factory.fCreatePipe( pipe )) { 

cout << "Unable to create pipe DosErrorCode = 
Factory.rcDosErrorCode() « endl; 
return 2; 

> 


<< 


cout << "Waiting for pipe to connect to client., 
enai; 

if (!pipe->fOpenPipe()) { 

cout « "Error connecting to the client 
DosErrorCode « " « pipe->rcDosErrorCode() « endl; 
return 2; w ' 

> 

cout « "Pipe connected to client." « endl; 


TStream MsgStream; 

while (fProcessClientEvent( *pipe, MsgStream )) 
MsgStream.Reset(); 
pipe->fClosePipe(); 
return 0; 


<< 
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ilSgStreaS e r ClientEVent( MessagePipe &Pipe ' TStream 
{ 


if (!Pipe.fGetMessage( MsgStream )) { 

cout « "Error reading message from pipe 
DosErrorCode = « Pipe.rcDosErrorCode() « endl; 

return FALSE; ' 


CTMessageHeader Header; 
MsgStream » Header; 
switch (Header.eType()) { 

case QUERY CTID STATUS: 
{ 


QueryCTIDStatusMsg StatusMsg( Header ); 

MsgStream » *(QueryCTIDStatus*)iStatusMsg• 

if (!fProcessQueryCTIDStatus( Pipe, StatusMsg )) 

SOLCODP s •• 5^1 <<: " E f ror in f: ProcessQueryCTIDStatus, 
SQLCODE - « (long)ulGetSQLCode() « endl; 

break; 


case STORE MONITOREVENT: 
{ 


StoreMonitorEventMsg EventMsg( Header ); 
MsgStream » *(StoreMonitorEvent*)iEventMsg; 
if (.fProcessstoreMonitorEvent(Pipe, EventMsg 


SOLCODE - n ^ U 5i << !' E f ror in fProcessstoreMonitorEvent, 
SQLCODE - " « (long)ulGetSQLCode() « endl; 


> 

break; 

case CLI_QUIT: 

return FALSE; 
default: 

cout « "Unknown Command Received!" « endl* 
return FALSE; x ' 


return TRUE; 

} 


FLAG fProcessQueryCTIDStatus( MessagePipe SPipe, 
QueryCTIDStatusMsg SCTID ) HP# 

_CTlicense Rec; 

CTIDStatusResu1tMsg ResultMsg; 

if (!fXlatCliCTID( CTID.CTID, CTID.CTID )) { 

CTID" << U endl-" Err ° r converting client CTID to server 
// Proccess error here. 

} 
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ResultMsg.QueryResult 
CTID.CTID ); 


_fQueryLicense( 4Rec, 


if (JResultMsg.QueryResult) { 
ResultMsg.CTID 
ResultMsg.Status 
CTLicStatus::ACTIVE; 

ResultMsg.PeriodDays 
ResultMsg.PeriodMinutes 
ResultMsg.StolenFlag 
ResultMsg.SpecialProcess 
ResultMsg.Orgnum_n 
ResultMsg.LastCalITS n 
Re su1tMsg.NextCa1lTS~n 

ResultMsg.NextCallClIentTS n 
ResultMsg.ProductType ~ 

else { 

ResultMsg.CTID 
Resu1tMsg.Status 
ResultMsg.PeriodDays 
ResultMsg.PeriodMinutes 
ResultMsg.StolenFlag 


CTID.CTID; 


■ 2 ; 

8 0 ; 

■ FALSE; 

■ 0 ; 

•fSetNull() 
•fSetNull() 
.fSetNull() 
-fSetNull () 
.fSetNull() 


Rec.CTID; 

Rec.LicStatus; 

Rec.PeriodDays; 
Rec.PeriodMinutes; 
Rec.StolenFlag «» 


Rec.SpecialProcess; 
. Assign( 




ResultMsg.SpecialProcess 
ResultMsg.LastCallTS n .Assianr 

Rec.LastCa 1 ITS N, DB_ISNULL( Rec.IsNui? L^allTS > i- 
ResultMsg.NextCallTS n Aisionr } ); 

ec.NextCallTS_N, DB_ISNULL( Rec.IsNull NextCallTS ) 
Resu1tMsg.NextCallciientTS n .Assion ( 

Rec.NextCallClientTS N, DB ISNULLf 
Rec.IsNull_NextCallcIientTS ) ); 

if (DB_ISNULL( Rec.IsNull Orgnun )) 
else eSUltMS9 ’° r9nUm - n * fSetN «H 0 ; 

ResultMsg•Orgnun n s nee Oronnn «. 

, Result Msg.ProductType . KSiSSSct^p.. 


cout « "SQLCODE - « (long) ulGetSQLCode() « „dl 

// Return Query results. 

TStrean Stream; 

Stream << ResultMsg; 

return Pipe.fSendMessage( Stream ); 


FLAG fProcessStoreMonitorEvent 
StoreMonitorEventMsg &Msg ) 


( MessagePipe 


StoreResultMsg ResultMsg; 


4Pipe, 


// Prepare reply message. 
ResultMsg.Result « TRUE; 
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II Prepare the monitorevent data. 

_CTaonitorEvent Rec; 

if (IfXlatCliCTID( (ULONG&)Rec.CTID, Msg.CTID )) ( 

CTID" << U gndl;" Error conv erting client CTID to server 
// Proccess error here. 

> 

_fCopyTStoDBVars( Rec.ServerTS, NULL, 

Msg.ServerTS, "ServerTS" ); 

„ _fCopyTStoDBVars( Rec.ClientTS, NULL, 

Msg.ClientTS, "ClientTS" ); 

tODBVars( Rec •TelcoTS N, iRec.IsNull TelcoTS 
Msg.TelcoTS_n, "TelcoTS" ); - lcols ' 

Rec.DurationSec_N « Msg.DurationSec n; 

Rec.IsNull_DurationSec * DB NOT NULL; 

if (!Msg.CallerID_n) { 

Rec.IsNull_CalIerID *» DB NULL; 

else { 

Rec.IsNull_CallerID = DB NOT NULL; 

Itoc.cIJSo^ ® e ^; CallerID _ H ' Hsg7call«rID_n, sizeof( 

Rec.LineNum = Msg.LineNun; 
if (JMsg.LogFlag) { 

Am - m if° Ut << ""VALXD.DATA ERROR: LogFlag is NULL 
defaulting to FALSE" << endl; ' 

Rec.LogFlag = 'N'; 

else { 

} Rec.LogFlag = ((STRING)Msg.LogFlag)[o]; 

R.= S E”i^Len«D n r”"" e " tID ' MS ' 5 - E ' ,Vir0r ’ mentID ' si2e ° f < 

Rec.ErrorCnt - Msg.ErrorCnt; 

// Update the License Record. 

if (!fUpdateLicenseStatus( Msg )} / 

if (ulGetSQLCode() !■ 100) { 

Tabio ri?SJn << "DB2_ERR0R: Error updating License 
Table, CliCTID = " << Msg.CTID 

endl; << " SQLCODE = " « (long)ulGetSQLCode() « 


> 


} 


// Perform the insert. 


SUBSTITUTE SHEET 



if (*_fInsertlntoMonitorEvent( &Rec )) / 

ResultMsg.Result « FALSE; 1 

else { 

if (Msg.StoreAsStolen) { 

if (*_fInsertlntoMonitorEventStolen( 
ResultMsg.Result « FALSE; 

> 

if (Msg.storeAsExpire) { 

if ( 1 _fInsertlntoMonitorEventExpired( 
ResultMsg.Result = FALSE; 

•} 

> 

> 


&Rec )) 


&Rec )) 


cout « "SQLCOOE - - « (long)ulGetsOLCode{) « endl . 

TStream Stream; 

Stream << ResultMsg; 

TRUE? ( ^ lpe v fSendMessa 9 e ( Stream ) && ResultMsg.Result « 

DB.Commit(); 
return TRUE; 

else { 

OB.Rollback(); 
return FALSE; 


FLAG fUpdateLicenseStatus( StoreMonitorEventMsg &Msg ) 


_CTupdateLicenseStatus Rec; 
short dummy1; 

Null validation below. 


// Used to quiet the 


(UL0NG4) Rec. CTID, Msg.CTID ); 

R .= «^ ( , R ^- StatUS - siisofl 


); 


idumrayl, 
&dummyi, 


_fCopyTStoDBVars( Rec.LastCallTS N. 

Msg.ServerTS, "LastCallTS" 

_fCopyTStoDBVars( Rec.NextCallTS N. 

Msg.NextCallTS_n, "NextCallTS" \ • 

„ —CopyTStoDBVars ( Rec.NextCallClientTS N 'idunuvi 
Msg.NextCallciientTS_n, "NextCallclientTS" ); y ' 

if (•Msg.NextCallTS n) strcpyf Rec Nextcai itc m 
0001-01-01-00.00.00.000000" j; KeC *^NextCallTS_N, 

if (!Msg.NextCallclientTS n) strcpyf 

R.C.NextCallCli.ntTSJ), ”0001-01-01-00.00.00.000000” ); 

return UpdateLicenseStatus( &Rec ); 
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FLAG _fCopyTStoDBVars( char *tsstring, 
CTTimestamp &ts, STRING varname ) 

{ 

if (Its) { 

if (indicator == NULL) { 

cout « "INVALID_DATA_ERROR: " 
is NULL, forcing validation" « endl; 
ts.ForceVa1idate() ; 

> 

else { 

♦indicator = DB_NULL; 
tsstring(O) «* '\x0'; 
return FALSE; 

> 


short ^indicator. 


<< varname « " 


> 

else if (!ts.fValidate()) { 

cout « "INVALID DATA_ERROR: " « varname « " is 
invalid, forcing validation - " « ts « endl; 
ts.ForceValidate(); 


if (indicator !“ NULL) * indicator *= DB NOT NULL* 
ts.ToSTRING( tsstring ) ; — _ » 
return TRUE; 


35 
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«sa ks s pmapi u n ° ™ 

/define INCL~BSE 
/define INCL_DOSSEMAPHORES 
/define INCL_DOSNMPlPES 
/include <os2.h> 

/include <ctype.h> 

/include <stdlib.h> 

/include <iostream.h> 

/include <fstream.h> 

/include <server.h> 

/include <MessagePipe.HPP> 

/include <TModem.HPP> 

/include "CT_Trans.H" 

/♦GLOBAL 

VARIABLES *****************************************j 

HEV hQuitSem; 
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// Temp, move to thread. 
CltMsgPipeFactory ^factory; 
MessagePipe *pipe; 




*********** 


*** 


****** 


FLAG fLoadLineThreads( TModem&, PCS2, PCS2 ) • 
v °id _Optlink CT_CommandThread( PVOID ) • . 

‘ P ° rt - TConnect Info *CnctInfo, 

TPort::ComSettings ComSetting ■ / 

•'C0M1", // port name 

// not used 
38400, // bp S 

// data bits 
TPort::N 0 , // no parity 

TPort::ONE // one stop bit 

> ; 

int main( int argc, char *argv[] ) 

APIRET rc; 

cout << "CompuTrace Server V 0 . 99 q" « endl; 

// Check arguments, 
if (argc != 4 ) { 

• cou * <,c "Usage: server <pipe name> <port name> 
<init_string>" « endl « endl; ~ <port_name> 

return 0 ; 

> 

// Create quit semaphore. 

)) O)^ = DosCre 8 teEventSem( NULL, ShQuitSem, o, FALSE 

return 1 ; 

factory = new CltMsgPipeFactory ( argv(i), 512 ); 

// Load port server threads. 

TPort Port; 

TModem Modem = Port; 

retiJn ( 2f L ° adLineThreadS( Modero ' ar 9vt2], argv[3] )) 


cout << " 
endl; 


Successfully connected to local modem H 


<< 


// Wait for quit signal. 

DosWaitEventSem( hQuitSem, SEM_INDEFINITE WAIT ); 
return 0; 

> 
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// 

// fLoadLineThreads: Loads the threads to operate a 
server lane. This function 

{{ ne should be called for each server 

// 

i£?Jt?T ineThreadS( ™° dem &MOdem ' PCSZ P°rt_str, PCSZ 

{ 

// Start port log. 

// Port.Logon(); 

// Open port. 

ComSetting.port_name = port str; 
if (!Modem.Port().fOpenPortJ ComSetting )) / 

cout « "Error openning port" << endl; 
return FALSE; 

> 

// Start the port manage thread. 

if (!Modem.Port().fStartManageThreadH) / 

cout « "Thread execution error" << endl; 
return FALSE; ' 

// Initialize the modem. 

ST R ING result - Modem.strSendCommand( init str, -l )• 
xf (strcmp( result, "OK" ) !» 0 ) { - ' x 

^etir^FALsir initialli2in 9 modern" « endl; 

// Connect pipe to dbserver. 

if fif?Bi°So >fC =* atePip ® ( Pipe retur " FALSE; 
xf (*pipe->fOpenPipe()) return FALSE; 

// Start the command thread. 

CT iJLiiSSl* ‘ P ^ rt (} **StartCommandThread ( 

CT_CommandThread, (PVOID)&Modem )) / 

< « " Threa< ? execution error" « endl; 

Modem.Port().Ki 1 IManageThread(); 
return FALSE; 

return TRUE; 


// 

server C line ndThread ? Processes incoming data from a 

//, 

y°id _Optlink CT_CommandThread( PVOID ptr ) 
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TModem SModem = *(TModem*)ptr; // Alias 

(should be optimized out by the compiler). 

// Thread local variables 
STRING result; 

TConnectlnfo cnct_info; 

while (TRUE) { 

result « Modem.strGetString( -1 ); 

// Parse buffer for cmd. 

if (!fParseCmd( Modem.Port(), 4cnct_info, result )) 

memset( (PVOID)&cnct_info, '\x0', sizeof 
cnct_info ); 

) 

) 

> 

#define CND_DATE_FIELD "DATE ■" 

/define CND_TIME_FIELD "TIME *" 

/define CND_NUMBER_FIELD "NMBR «" 

/define CND_NONUM_FIELD "REASON FOR NO NUMBER:" 

/define CND_NAME_FIELD "CALLER NAME:" 

/define CND~NONAME_FIELD "REASON FOR NO NAME:" 

// 

// fParseCmd: called when a '\n' has been received, this 
function will process the string. 

II Returns TRUE if a transaction is occuring, 

FALSE if the buffers should be cleared. 

// 

FLAG fParseCmd( TPort 4Port, TConnectlnfo *cnct info, 
STRING buffer ) 

{. 

const char *index; 

// Parse command. 

if (strstr( buffer, "RING" ) !- NULL) { 
cout « "Command parsed as RING" « endl; 

> 

else if ((index - strstr( buffer, CND DATE FIELD )) !® 
NULL) { - ~ 

index +■ sizeof CND_DATE_FIELD; 
while (!isdigit( "index )) index++; 

// Grab the month. 

if (iisdigit( "index ) JJ !isdigit( *(index+i) )) 
return FALSE; 

cnct_info->cnd.month * (*index++ - ' 0 ') * 10 ; 
cnct~info->cnd.month *index++ - 'O'; 

// Grab the day. 

if (!isdigit( "index ) }j !isdigit( *(index+i) )) 
return FALSE; 

cnct_info->cnd.day * (*index"«-+ - '0') * 10; 
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> 


cnct_info->cnd.day += *index++ - 'O'; 
cout << buffer « endl; 


«TTrf^ Se , if ^ index = strstr( buffer, CND TIME FIELD )) 
NULL) { “ - 

index +» sizeof CND TIME FIELD; 
while (!isdigit( *index 7) index++; 

// Grab the hour. 

if (!i s digit( *index ) j| !isdigit( *(index+i) )) 
return FALSE; 1 ’ 

cnct _info->cnd.hour = (*index++ - '0') * io; 
cnct^info—>cnd.hour +« *index++ - »o / * 

// Grab the minute. ' 

return^ALSEf 191 " * indCSC ' 11 ‘ iSdigit( *< ind « + l> >> 
cnct_info->cnd.minute = (*index++ - '0') * io; 
cn ct_info->cnd.minute += *index++ — r Q *; 


> 


cout << buffer « endl; 


i m NULL) if / <indeX = StrStr{ buffe r» CND_NUMB ER_F I ELD )) 

index += sizeof CND_NUMBER FIELD; 
while (isspace( *index )) Index++; 

// Grab the number. 

for (int i ■ 0; i < CND_NUM_MAXLEN ; i++) { 

if (indexfij == '\x0' jj indexfi] == '\r') { 

cnct_info->cnd.number[i) = '\x 0 '; 
break; 

} 

else { 

cn ct_info->cnd.number[i] = index(i); 


> 


} 

> 

cout << buffer << endl; 


else if (strstr( buffer, CND_NONUM FIELD ) != NULL) 
index +- sizeof CND NONUM FIELDj 
// Grab the string. 

while (isspace( *index )) index++; 
for (int i = 0 ; i < CND_NUM_MAXLEN; i++) { 

if (index[i) == • \x0' J[”index[i] -■ '\r') { 


} 


cnct_info->cnd.number[iJ * '\x 0 '; 
break; 


else { 

cnct_info->cnd.number[ij = indexfi]; 


cout « buffer << endl; 

else if (strstr( buffer, CND_NAME FIELD ) != NULL) { 
index += sizeof CND_NAME FIELD; 
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// Grab the name. 

while (isspace( * index )) index-*--*-; 
for (int i * 0; i < CND_NAME MAXLEN; i++) / 

if (index[i] -> '\X0' || Tndex[i) — '\ r ') / 
cnct info->cnd.name[ il *» '\x0'; 
break; 

} 

else { 

cnct_info->cnd.name[i] * index(i); 

> 

cout « buffer « endl; 

else if (strstr( buffer, CND_NONAME_FIELD ) != NULL) 

index +* sizeof CND NONAME FIELD; 

// Grab the string. ” 

while (isspace( *index )) index-*--*-; 
for (int i « 0; i < CND NAME MAXLEN; i++) { 

if (index(i] — '\x0 7 |J Indexfi] == '\r') / 

°nct_info->cnd.name(i] ■ r \x0 '; 
break; 

} 

else { 

cnct_info->cnd.name[i] = indexfi]; 

> 

cout << buffer « endl; 

> 

else if (strstr( buffer, "CONNECT" ) !« NULL) { 
cout << "Command parsed as CONNECT" « endl; 

SntlConnect( Port, *pipe, cnct info ); 
return FALSE; ~ 

> 

else if (strstr( buffer, "NO CARRIER" ) •« NULL) { 
cout « "Command parsed as NO CARRIER" « endl* 
return FALSE; ' 

> 

else if (strstr( buffer, "OK" ) !« NULL) { 
cout « "Command parsed as OK" « endl; 
return FALSE; 

> 

else if (strstr( buffer, "ERROR" ) != NULL) { 
cout << "Command parsed as ERROR" << endl; 
return FALSE; 

> 

else { 

. cout << "Unknown command received: " << buffer « 

endl; 

return FALSE; 

> 

return TRUE; 
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> 

^include <CTIMS.HPP> 

// 

// CTStatus friends and members. 

CTStatus::CTStatus() 

{ 

memset( value, ' sizeof( value ) ); 


CTStatus::CTStatus( STRING str ) 

ASSERT( strlen( str ) < sizeof( value ) ) • 
memcpy( value, str, strlen( str ) ); 


eonst char c ^i||tatus:: STR_SET[ ] [CT_TOK_SI2E+l] = { 

NOTEST~TOK* 

ACTIVE TOK, 

EXPIRED TOK 

>; 


CTLicStatusi CTLicStatus::operator « ( STRING str ) 

for (int i - 0; i <= EXPIRED; i++) / 

if (strcmp( STRSET(i], str ) == NULL) / 
setNotNull(); ; 1 

value = VALUE( i ); 
return *this; 

} 

> 


ASSERT( FALSE ); 
for the string, 
return *this; 


//No match was found 


/********** 4 *** a * 4 £ A £££ 

FLAG CTOrgnum:;fSetPrefix( STRING str ) 

if (strlenf str ) != ORGNUM PREFIX SIZE) / 
return FALSE; ~ ~ ' 

> 

else { 

value[0] « str[0); 
valuefl] = str[l]; 
value[2] - str[2J; 
value[3) * str[3]; 
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return TRUE; 

> 

} 

FLAG CTOrgnum::fSetIndex( UINT nun ) 

if (num > 9999) { 

return FALSE; 

> 

else { 

value[ORGNUM PREFIX SIZE + 

+ ' 0 ' ; 

valuefORGNUM PREFIX SIZE + 

' 0 ' ; 

value[ORGNUM PREFIX SIZE + 

' 0' ; 

value[ORGNUM PREFIX SIZE + 

> 

} 

FLAG CTOrgnum::fGetPrefix( char *str ) const 

if (strlen( str ) != ORGNUM PREFIX SIZE) ( 
return FALSE; ~ ~ 

> 

else { 

str[0] = value[0]; 
str[l) « value[l]; 
str[ 2 ] = value[ 2 ]; 
str[3] = value[3); 
str[4] = 'XxO 7 ; 


FLAG CTOrgnum::fGetIndex( UINT &i ) const 

i « atoi ( i( value [ORGNUM PREFIX SIZED )• 
return TRUE; “ “ 


0) ® (numlioooo) / iooo 

1] = (num%i 000 ) / ioo + 

2] = (num%l 00 ) / 10 + 

3] = (num % 10) + 'O'; 


FLAG CTOrgnum::fGeneratePrefix( STRING org_name ) 

char pre[ORGNUM_PREFIX_SIZE]; 

// Grab first four alphanum characters. 

for (int i - 0, j - 6; i < ORGNUM PREFIX SIZE;) { 
if (isalnum( orgname[j++) )) pre[i]; ~ 

} 




*** 


II 

II iostream stream operators. 
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// 

°stream* operator «( ostream *os, const CTStatus istatus 

{ 

return os « (STRING)status; 


********************** *** 


******* 


// 

// TStream stream operators. 

istatus*)°^ erator « ( TStream ibuf, const CTStatus 
{ 


buf « *(TNull*)Sstatus; 
if (Istatus) return buf; 
else return buf.Put( PVOID( 
status.value ) ); 


status.value ), 


sizeof( 


TStream* operator » ( TStream ibuf, 

buf » *(TNull*)&status; 
if (!status) return buf; 
else return buf.Get( status.value, 
status.value ) ); 


CTStatus 


sizeof( 


&status 


) 


TStream* operator << ( TStream *buf, const CTCallerlD *id 
( 


buf « *(TNull*)*id; 
if (!id) return buf; 

id.valueTl';" bUf-Put( PV0ID( id value >. 


sizeof( 


TStream* operator » ( TStream ibuf, CTCallerlD *id ) 


) 


buf » *(TNull*)&id; 
if (lid) return buf; 
else return buf.Get( id.value, 


sizeof( id.value 


); 


TStream* operator « ( TStream ibuf, const CTLicStatus 
{ 

buf « *(TNull*)*lic; 
if (llic) return buf; 

} else return buf « USHORT( lie.value ); 

TStream* operator » ( TStream ibuf, CTLicStatus ilic ) 
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USHORT num; 

buf » *(TNull*)41ic; 
if (!lic) return buf; 
else { 

buf >> num; 

lie.value = CTLicStatus::VALUE( num ); 
return buf; 

> 

} 

TStream* operator « ( TStream &buf, const CTOrgnum &num 
{ 

buf « *(TNull*)&num; 
if (inum) return buf; 

else return buf.Put( PVOID( num.value ), sizeoff 
num.value ) ); 

> 

TStream* operator » ( TStream &buf, CTOrgnum *num ) 

buf » *(TNull*)inum; 
if (!num) return buf; 

else return buf.Get( num.value, sizeof( num.value ) ); 


TStream* operator « ( TStream &buf, const CTMonitorEvent 
&event ) 

{ 

return buf << event.CTID 

<< event.ServerTS 
<< event.ClientTS 
<< event.TelcoTS_n 
<< event.DurationSec_n 
< < event.CallerID_n 
<< event.LineNum 
<< event.LogFlag 
<< event.EnvironmentID 
<< event.ErrorCnt; 


TStream* operator » ( TStream &buf, 
&event ) 


{ 


return buf » 
>> 
>> 
>> 
» 
» 
>> 
-» 
» 


event.CTID 
event.ServerTS 
event.ClientTS 
event.TelcoTS_n 
event.DurationSec_n 
event.CallerID_n 
event.LineNum 
event.LogFlag 
event.EnvironmentID 


CTMonitorEvent 
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#include <CTMessage.HPP> 

//******************************************************* 
********************** 

// 

// TStream stream operators. 

// 

TStreamA operator << ( TStream Abuf, const 
CTMessageHeader Ahead } 

{ 

return buf << head.ID « head.Type « head.Len; 


TStreamA operator » ( TStream Abuf, CTMessageHeader 
Ahead ) 

{ 

buf >> head.ID; 
buf >> head.Type; 
buf >> head.Len; 

return buf; 

> 

/define INCL_NOPMAPl //no PM in this program 

/define INCL_DOS 

/define INCL_BSE 

/define INCL_DOSSEMAPHORES 

/define INCL_DOSNMPIPES 

/include <os2.h> 

/include "CT_Buffer.HPP" 

CT_Buffer::CT_Buffer() 

: head( o“), 

tail( CT_BUFFER_MAXLEN ) 

// Create the mutex sem. 

rc « DosCreateMutexSem( HULL, AhBufSem, 0, 0 ); 
if (rc) {> 

// Create the event sem. 

rc * DosCreateEventSem( NULL, AhReleaseGetSem, 0, 0 ); 


CT_Buffer::-CT Buffer() 

{ 

DosCloseMutexSem( hBufSem ); 

> 

void CT__Buffer:: Flush () 
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ULONG post_count; 

head e 2 U o * tMUteXSem( hBufSem ' SEM_INDEFINITE_WAIT ); 
tail = CT_BUFFER_MAXLEN; 

DosResetEventSein( hReleaseGetSem, ipost count )• 
DosReleaseMutexSem( hBufSem ); ” '' 


FLAG CT_Buffer::fPutChar( char ch ) 

FLAG ret_val; 

// Get ownership of the semaphore. 

j. rC UosRequestMutexSem( hBufSem, SEM_INDEFINITE WAIT 
if (re) return FALSE; 

" if^flJpSiim* / he 109 buffer hasn't overflown. 

" aSshL-r- -■ — - — 

head » IncBufPtr( head ); 

DosPostEventSem( hReleaseGetSem ); 
ret_val - TRUE; 

else ret_val = FALSE; 

// Release the semaphore. 

DosReleaseMutexSem( hBufSem ); 

return ret_val; 


FLAG CT_Buffer::fGetChar( char 4ch ) 

ULONG post_count; 

FLAG ret_val; 

// If empty wait for timeout. 

SQl“HDEFmTE!wHT D 5 > f aitEVentSe " < 

II Get ownership of the semaphore. 

j. rC " DosRe <3uestMutexSem( hBufSem, SEM_INDEFINITE_WAIT 

if (rc) return FALSE; 

if (!fIsEmpty()) { 

// Fetch the char, update tail, 
tail = IncBufPtr( tail ); 
ch ■ buffer(tail]; 
ret_val = TRUE; 
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else ret_val = FALSE; 

DosResetEventSem( hReleaseGetSem, &post_count ); 

// Release the semaphore. 

DosReleaseMutexSem( hBufSem ); 

return ret_val; 


/define INCL_NOPMAPI // no PM in this program 

/define INCL_DOS K y 

/define INCL BSE 

/define INCL~DOSSEMAPHORES 

/define INCL“DOSNMPIPES 

/include <os2.h> 

/include "CT_Log.HPP H 

/include <fstream.h> 

CT_Log::CT_Log( UINT len ) 

: buf_len( len ), 
index( 0 ) 

{ 

if ((buffer = new BYTE(buf_len]) == NOLL) { 
buf_len = index = 0; 

> 

CT_Log::-CT Log() 

{ 

if (buffer) DosFreeMem( buffer ); 


BOOL CT_Log:;fPostChar( char ch ) 

// First check that the log buffer hasn't overflown 
if (!fIsFull()) { 

// Store the char, update head, 
buffer(index++j = ch; 
return TRUE; 

} 

else return FALSE; 


BOOL CT_Log::fDumpLog( const char *fname ) 

{ 

fstream dump; 

dump.open( fname, ios::out ); 
if (!dump) return FALSE; 
dump.write( buffer, index ); 
dump.close(); 
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return TRUE; 

> 

/define INCL_DOSNMPIPES 
/include <os2.h> 

/include <MessagePipe.HPP> 

/ /******************************************* # * A######jk<k# 

// SvrMsgPipeFactory Implementation. 

//*********************************** ### ***************** 
********************** 


SvrMsgPipeFactory::SvrMsgPipeFactory( PCSZ name, UINT 
msg_len, UINT pipe_len ) 

: MsgPipeFactory( msg len ), 
pipe_name( name ), ~ 
pipe_len( pipe_len ) 


FLAG SvrMsgPipeFactory::fCreatePipe( MessagePipe *&ppipe 
{ 

ppipe = new MessagePipe( this ); 
return TRUE; 

} 

FLAG SvrMsgPipeFactory::fDestroyPipe( MessagePipe *ppipe 
{ 

delete ppipe; 
return TRUE; 

> 


FLAG SvrMsgPipeFactory::fOpenPipe( MessagePipe *pipe ) 
HPIPE hPipe; 

// Create and connect the named pipe. 

pipe->rc - DosCreateNPipe( (PSZ)pipe_name, ihPipe, 

NP NOWRITEBEHIND | // 

Data sent to remote pipes Tmmediatly. 

NP_ACCESS_DUPLEX, // 

Two-way client/server communications. 

NP_WAIT | // 

I/O to pipe blocked until data available. 

NP TYPE_MESSAGE ! // 

Message pipe type. “ 

NP_READMODE MESSAGE { // 

Messafe read mode type. “ 

OxOOFF, / / 

Infinite number of allowed instances of this pipe. 
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(uMaxMsgLen() +2) * pipe len,// 

Size of output buffer. 

(uMaxMsgLen() +2) * pipe len,// 
Size of input buffer. - 

0 // 
Client open timeout (see DosWaitNPipe). 

); 

if (pipe->rc) return FALSE; 

pipe->rc = DosConnectNPipe( hPipe ); 
if (pipe->rc) return FALSE; 

pipe->SetHandle( hPipe ); 
return TRUE; 


FLAG SvrMsgPipeFactory::fClosePipe( MessagePipe *pipe ) 

HPIPE hPipe = pipe->GetHandle(); 

// Wait till the pipe is empty. 

pipe->rc * DosResetBuffer( hPipe ); 
if (p-ipe->rc) return FALSE; 

// Disconnect the pipe handle. 

pipe->rc = DosDisConnectNPipe( hPipe ); 
if (pipe->rc) return FALSE; 

return TRUE; 

> 


//******************************************************* 
********************** 

// CltMsgPipeFactory Implementation. 

//********************************************** ### * # * # * # 
********************** 

CltMsgPipeFactory::CltMsgPipeFactory( PCSZ name, UINT 
msg__len ) 

: MsgPipeFactory ( msg_leri } , 
pipe name( name ) 

-{> 

FLAG CltMsgPipeFactory::fCreatePipe( MessagePipe *&ppipe 

{ 

ppipe ■ new MessagePipe( this ); 
return TRUE; 

> 

FLAG CltMsgPipeFactory::fDestroyPipe( MessagePipe *ppipe 

{ 

delete ppipe; 


55 


1RSTITUTE SHEET 



wo 96/15485 


PCT/CA95/00646 


- 146 • 


return TRUE; 


FLAG CltMsgPipeFactory::fOpenPipe( MessagePipe *pi pe ) 

HPIPE hPipe; 

ULONG ulAction; 

pipe->rc =» DosOpen( pipe name, ihPipe, fiulAction 0 
FILE_NORMAL, FILE OPEN, ° n ' 0, 

OPEN ACCESS READWRITE 1 
OPEN_SHARE_DENYNONE, " ~ E < 

(PEAOP2)NULL ); 
if (pipe->rc) return FALSE; 

pipe->SetHandle( hPipe ); 
return TRUE; 

} 

flag CltMsgPipeFactory::fClosePipe( MessagePipe *pi pe ) 

HPIPE hPipe « pipe->GetHandle(); 

// Wait till the pipe is empty. 

pipe->rc - DosResetBuffer{ hPipe ); 
if (pipe->rc) return FALSE; 

// Close the pipe handle, 
rc = DosClose( hPipe ); 
if (pipe->rc) return FALSE; 


> 


return TRUE; 


ii::::::;::::::::::;;:******—**-***-*—**-*.*.*..—. 

// MessagePipe Implementation 

ii::::::::::::::;;;:::.*****.*.*.. 

Messagepipe^MassageP ipe ( HsgPipeFactory -on, , 
factory->lnitPipe( this ); 

MessagePipe::-MessagePipe() 
factory->DeinitPipe( this ); 

FLAG MessagePipe::fOpenPipe() 

return factory->fOpenPipe( this ); 
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FLAG MessagePipe::fClosePipe() 

{ 

return factory->fClosePipe( this ); 

> 

FLAG MessagePipe::fSendMessage( PCVOID msg, ULONG msg_len 

{ 

ULOHG cbWritten; 

rc = DosWritef hPipe, (PVOID)msg, msg len, icbWritten 

) ; 


return (rc 0 && msg len == cbWritten) ? TRUE* : 
FALSE; 

> 

FLAG MessagePipe::fGetMessage( PVOID msg, PULONG msg_len 

{ 

// PRECONDITION( msg_len !* 0 && *msg len <= 
uMaxMsgLen() ); ~ 

rc = DosRead( hPipe, msg, *msg_len, msg_len ); 
return (rc == 0) ? TRUE : FALSE; 


FLAG MessagePipe::fTransact( PCVOID out msg, ULONG 
out_msg_len, PVOID in_msg, PULONG in_msg_len ) 

// PRECONDITION( in_msg len !* 0 && *in msg len <— 
uMaxMsgLen() ); ~ “ ~ 

rc = DosTransactNPipe( hPipe, (PVOID)outjnsg, 
out_msg_len, in_msg, *in_msg_len, in__msg len ) ; 

return (rc — 0) ? TRUE : FALSE; 


MessagePipe::PIPE_STATE MessagePipe::estate() 

ULONG cbRead; 

AVAILDATA avail; 

ULONG state; 

// Use DosPeekNPipe to find the state of the pipe. 

rc = DosPeekNPipe( hPipe, NULL, 0, ScbRead, &avail, 
&state ); 

return (PIPE STATE)state; 

} 

#ifdef _OS2_ 

#deflne INCL_DOSDATETIME 
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/include <os2.h> 

/endif 

/include <ctype.h> 

/include <Objects.HPP> 

Z^************************************,^^^ 

********************** 

// 

// TFlag members. 

// 

TFlag::TFlag() 

: TNull( TRUE ) 

{} 

TFlag::TFlag( FLAG flag ) 

: value( (flag != FALSE) ), 

TNull( FALSE ) 

{} 

TFlag::-TFlag() 

( 

/ifdef DEBUG 
fSetNull() ; 
value = UNINIT DATA; 

/endif 

> 


//*******o*********o***************o******** 
********************** 


********** 


// 

// TTimestamp members. 

// 


const UINT TTimestamp::TSStringLen - 27; 

TTimestamp::TTimestamp() 

: TNull( TRUE ) 

/ifdef DEBUG 

Year = Month « Day = Hour « Minute 
Mlllisec ® UNINIT DATA; 

/endif 


Second = 


TTimestamp::TTimestamp ( 

USHORT ms ) 

: Year( yr ), 

Month( mo ), 

Day( dy ), 

Hour( hr ), 

Minute( mn ), 


USHORT yr, UCHAR mo, UCHAR dy, 
UCHAR hr, UCHAR mn, UCHAR sc, 
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Second( sc ), 

Millisec( ms ), 

TNull( FALSE ) 

{> 

TTimestamp::-TTimestamp() 

#ifdef DEBUG 
fSetNull(); 

Year » Month *» Day = Hour - Minute « Second 

Millisec ■ UNINIT DATA; 

#endif “ 

} 

FLAG TTimestamp::fValidate() const 
if (flsNulI()) return FALSE; 

// Check year. 

if (.'Year j| Year > 9999) return FALSE; 

// Check month and day. 
if (!Day) return FALSE; 
switch (Month) { 
case 1: 

if (Day > 31) return FALSE; 
break; 
case 2: 

if (Year % 4 »* o && Year % 100 != 0) 

Check for a leapyear. 

if (Day > 29) return FALSE; 
else 

if (Day > 28) return FALSE; 
break; 
case 3: 

if (Day > 31) return FALSE; 
break; 
case 4: 

if (Day > 30) return FALSE; 
break; 
case 5: 

if (Day > 31) return FALSE; 
break; 
case 6: 

if (Day > 30) return FALSE; 
break; 
case 7: 

if (Day > 31) return FALSE; 
break; 
case 8: 

if (Day > 31) return FALSE; 
break; 
case 9: 

if (Day > 30) return FALSE; 
break; 
case 10: 


// 
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if (Day > 31) return FALSE; 
break; 
ease 11: 

if (Day > 30) return FALSE; 
break; 
case 12: 

if (Day > 31) return FALSE; 
break; 
default: 

return FALSE; 


I I 
I I 


Minute || second Jj Millisec) 


// Check hours. 

if (Hour >23) { 

if (Hour > 24 
return FALSE; 

> 

// Check minutes, seconds and milliseconds. 

M 1 1 S *“ nd > ” 1 1 MUU ‘“ » *”> 


return TRUE; 

> 


void TTimestamp::ForceValidate() 

setNotNull(); 

Year » Month - Day « l; 

Hour - Minute - Second - Millisec - 0; 


FLAG TTimestamp::fIsValidTSString( 

if ( isdigit( ts[0] ) 

44 isdigit( ts(lj ) 

44 isdigit( ts(2] ) 

44 isdigit( ts(3J ) 

44 ts(4] 

44 isdigit( ts(5] ) 

44 isdigit( ts(6] ) 

44 ts(7) =» 

44 isdigit( ts[8] ) 

44 isdigit( ts(9J ) 

44 ts[10] ««= 

44 isdigit( ts[ll) ) 

44 isdigit( ts[l2] ) 

44 ts[13] — • . • 

44 isdigit( ts[14) ) 

44 isdigit( ts[l5] ) 

44 ts(16J — •.' 

44 isdigit( ts[l7) ) 

44 isdigit( ts[18] ) 

44 ts(19] ~ •.' 

44 isdigit( ts[20) ) 

44 isdigit( ts[2lj ) 

44 isdigit( ts(22] ) 


STRING ts ) 

// Check Year. 

// Check Month. 

// Check Day. 

// Check Hour. 

// Check Minute. 

// Check Second. 

// Check Millisec. 
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&& isdigit{ ts(23] ) 
ii isdigit( ts[24) ) 
ii isdigit( ts[25] ) 

&& ts[26] — '\x0') 
return TRUE; 
else return FALSE; 

> 

TTimestampi TTimestamp::Assign( const TTimestamp its ) 

if (Its) { 
fSetNull(); 

> 

else { 

setNotNull(); 

Year = ts.Year; 

Month ■ ts.Month; 

Day = ts.Day; 

Hour = ts.Hour; 

Minute * ts.Minute; 

Second = ts.Second; 

Millisec - ts.Millisec; 

} 

return (*this); 


TTimestampi TTimestamp::Assign( USHORT yr, UCHAR mo. 

UCHAR dy, 

UCHAR hr, UCHAR inn, UCHAR 

sc, USHORT ms ) 

( 

setNotNull(); 

Year = yr; 

Month * mo; 

Day = dy; 

Hour = hr; 

Minute *» mn; 

Second ■ sc; 

Millisec » ms; 

return (*this); 

} 

TTimestampi TTimestamp::Assign( STRING ts, FLAG isnull ) 

{ 

unsigned num; 

if (isnull) { 
fSetNull(); 
return *this; 

> 

setNotNull(); 
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ASSERT( fIsValidTSString( ts ) ); 

/* Convert year */ 

num = (ts[0) - 'O') * 1000; 

num (ts(lj - '0') * 100; 

nun +« (ts[2] - '0') * 10; 

num +- (ts[3) - '0'); 

Year - USHORT( num ); 

/* Convert month */ 

num » (ts[5] - '0') * 10; 

num +■ (ts[6} - '0'); 

Month - UCHAR( num ); 

/* Convert day */ 

num = (ts[8] - '0') * 10; 

num (ts[9J - '0'); 

Day - UCHAR( num ); 

/* Convert hour */ 

num = (ts[11) - '0') * 10; 
num +- (ts(12) - '0'); 

Hour = UCHAR( num ); 

/* Convert minute */ 

num - (ts(14) - '0') * 10; 
num +« (ts[15] - '0'); 

Minute « UCHAR( num ); 

/* Convert second */ 

num - (ts[17] - '0') * 10; 
num +■ (ts( 18 j - '0'); 

Second * UCHAR( num ); 

/* Convert millisec */ 

num - (ts(20) - '0') * 100; 
num += (ts(21] - '0') * 10; 
num +* (ts[22] - '0'); 

Millisec ® USHORTf num ); 

return *this; 

> , 

/ifdef _OS2_ 

TTimestampi TTimestamp::Assign( const DATETIME &Date ) 

setNotNull(); 

Year ■ Date.year; 

Month = Date.month; 

Day - Date.day; 

Hour ■ Date.hours; 

Minute => Date.minutes; 

Second •= Date.seconds; 

Millisec <= Date.hundredths * 10; 

return (*this); 

> 

#endif.// _0S2 

STRING TTimestamp::ToSTRING( char *ts ) const 
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{ 

unsigned nun; 

/* Convert year */ 
nun ■ Year; 

ts(0] - (num%10000) / 1000 + 'O'; 
ts[l] ® (numtlOOO) / 100 + 'O'; 
ts[2] ■ (nun%100) / 10 + 'O'; 
ts[3] - (nun % 10) + 'O'; 
ts[4] - 

/* Convert nonth */ 
nun * Month; 

ts[5] » (nun%100) / 10 + 'O'; 
ts(6] * (nun % 10) + 'O'; 
ts[7] = 

/* Convert day */ 
nun = Day; 

ts(8) = (nunilOO) / 10 + 'O'; 
ts(9J = (nun % 10) + 'O'; 
ts(10) ® 

/* Convert hour */ 
nun ■ Hour; 

ts[ll) = (nun%100) / 10 + 'O'; 
ts[12] ■ (nun % 10) + 'O'; 
ts(13] = 

/* Convert ninute */ 
nun = Minute; 

ts[ 14] ■ (num%100) / io + .'0'; 
ts(15] = (nun % 10) + 'O'; 
ts[16) - 

/* Convert second */ 
nun • Second; 

ts[17) «= (nuntlOO) / 10 + 'O'; 
ts[18] = (nun I 10) + 'O'; 
ts[19] = 

7* Convert millisec */ 
nun = Millisec; 

ts[20] = (nun%1000) / 100 + 'O'; 
ts[21] = (nun%100) / 10 + 'O'; 
ts(22] * (nun % 10) + 'O'; 
ts[23] « 'O'; 
ts[24] * 'O'; 
ts[2 5] = 'O'; 

ts[2 6] = '\xO'; 

return ts; 

> 

FLAG TTinestanp::operator > ( const TTinestamp its ) 

const 

{ 

useAsValue(); 

if (Year > ts.Year) return TRUE; 
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else if (Year «« ts.Year) { 

if (Month > ts.Month) return TRUE; 
else if (Month «== ts.Month) ( 
if (Day > ts.Day) return TRUE; 
else if (Day -« ts.Day) { 

if (Hour > ts.Hour) return TRUE; 
else if (Hour — ts.Hour) < 

if (Minute > ts.Minute) return TRUE’ 
else if (Minute — ts.Minute) ( ' 

if (Second > ts.Second) return TRUE* 
else if (Second ■» ts.Second) { ' 

jg. ^ (Millisec > ts.Millisec) return 

else return FALSE; 

} 

} 

} 

} 

> 

} 

return FALSE; 


c^st TTimeSta,np::0perator >- ( const TTimestamp its ) 

{ 

y return (*this > ts |J *this ■■ ts); 

c^st TTin6Stamp::Operat0r “ ( const TTinestamp its ) 
{ 

useAsValue() ; 

if (Year *== ts.Year && 

Month »* ts.Month && 

Day ** ts.Day && 

Hour =» ts.Hour it 
Minute »■ ts.Minute && 

Second »*» ts.Second && 

Millisec -« ts.Millisec) { 
return TRUE; 

else { 

return FALSE; 


//Date and time add function. 

UINT e day? P& TTinestam P :: AddToDate( UINT yr, UINT non, 

UINT sec, UINT ms ) UINT hr ' UINT Bin ' 

{ 

if (!fIsNull()) { 
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ms +« Millisec; 
sec += Second; 
min +** Minute; 
hr += Hour; 
day += Day; 
mon += Month; 
yr +■ year; 

} 

// Adjust and carry ms. 

while (ms > usMaxMillisec()) { 

ms -= usMaxMillisec() + 1; 
sec++; 

> 

// Adjust and carry sec. 

while (sec > usMaxSecond()) { 

sec -= usMaxSecond() + l; 
min++; 

} 

// Adjust and carry min. 

while (min > usMaxMinute()) { 

nin -■ usMaxMinute() + l; 
hr++; 

} 

// Adjust and carry hr. 

while (hr > usMaxHour()) { 
hr usMaxHour() + 1; 
day++; 

} 

//Adjust and carry mon (day adjust is dependent on mon 

and yr). 

while (mon > usMaxMonth()) { 

mon -= usMaxMonth(); 
yr++; 

> 

// How adjust and carry day now that yr and mon is known. 

while (day > usMaxDay( yr, mon )) { 

day -« usMaxDay( yr, mon ); 
mon++; 

if (mon > usMaxMonth()) { 

mon -= usMaxMonth(); 
yr++; 

} 

} 

// Copy new values to members. 

Assign( yr, mon, day, hr, min, sec, ms ); 

CHECK( fValidate() ); 

return *this; 


// static member. 

USHORT TTimestamp::usMaxDay( USHORT year, USHORT month ) 
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switch (month) { 
case 1: 

return 31; 


// Jan. 


case 2: // Feb. 

return f!sLeapYear( year ) ? 29 


// 

// 


case 3: 

return 31; 

case 4: 

return 30; 

case 5: 

return 31; 

case 6: 

return 30; 

case 7: 

return 31; 

case 8: 

return 31; 

case 9: 

return 30; 

case 10: 

return 31; 

case li: 

return 30; 

case 12: 

return 31; 

default: 

BOILERPLATE; 


// Mar. 
// Apr. 
// May. 
// Jun. 
// Jul. 
// Aug. 
// Sep. 
// Oct. 
// Nov. 
// Dec. 


28; 


> 


//*********************** 

********************** 




// 

// TStream stream operators. 

// 

TStream& operator « ( TStream 4buf, const TFlag iflag ) 

if (Iflag) return buf « FLAG( TRUE ); 

else return buf « FLAG( FALSE ) « flag.value; 


TStream& operator » ( TStream *buf, TFlag &flag ) 
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{ 

buf » *(TNull*)iflag; 
if (flag.fIsNull() == FALSE) 
buf >> flag.value; 
return buf; 


TStream& operator « ( TStream ibuf, const TTimestamp fits 
{ 

if (its) return buf « FLAG( TRUE ); 

else { 

return buf << FLAG( FALSE ) 

<< ts.Year 
<< ts.Month 
<< ts.Oay 
<< ts.Hour 
<< ts.Minute 
<< ts.Second 
« ts.Millisec; 

i r 


TStreami operator » ( TStream ibuf, TTimestamp its ) 

buf » *(TNull*)its; 
if (its) { 
return buf; 

> 

else { 

return buf » ts.Year 

>> ts.Month 

>> ts.Day 

>> ts.Hour 

» ts.Minute 

>> ts.Second 

>> ts.Millisec; 

1 . 9 


//****************************************** A *** ##A##AAAlk 
********************** 

U 

II iostream friend function members. 


ostreami operator << ( ostream ios, const TFlag iflag ) 

if (iflag) return os « NULL_TOK; 
else return os « (STRING)flag; 


/******************** 

istreami operator « ( istream iis, TFlag iflag ) 
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char ch, buffer(12]; 


X s ws * 

whitespace. ^ Extract leading 

for (int i - 0; i < sizeof( buffer ); i++) / 

is » buffer(i]; ' 1 

if (*isalpha( buffer!i] )) break; 

if (i == sizeof( buffer ) ASSERT( FALSE ); 

buffer[i] « '\x0'; 

if (strcmp( buffer, NULL TOK) =» o) / 
fSetNull() ; ~ * 1 

> 

else if (strcmp( buffer, TRUE TOK) == 0) / 

Assign( TRUE ); “ ' 

else if (strcmp( buffer, FALSE TOK) «» o) / 

Assign( FALSE ); ~ # ' 

else ASSERT( FALSE ); 

return is; 

l> 

*******.. 


ostraamt operator « ( ostream 4os, const TTiaastaap sts 
{ 


?5 a y,5 S f trin9fTTin,estain P : : TSStringLen]; 
ir (Its) return os << "NULL"; J 

else return os « ts.ToSTRING( tsstring ); 


/define INCL_NOPMAPI 
/define INCL_DOS 
///define INCL_BSE 
///define INCL DOSSEMAPHORES 
/include <os2.h> 


// no PM in this program 


/include <usertype.h> 

/include <TModem.HPP> 

TModem::TModem( TPort & port ) 
: port( port ) 

{> 


TModem::RC TModem::rcSendCoramand( STRING, ULONG timeout ) 
NOTIMPLEMENTED; 
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STRING TModem::strSendCommand( STRING str, ULONG timeout 

) 

{ 

port.fWritePort( str ); 

5 port.fPutChar( '\r' ); 

STRING result » strGetString( timeout ); 
if (strcmp( str, result ) == 0) { 

return strGetString( timeout ); 

} 

10 else { 

return result; 

} 


15 STRING TModem::strGetString( ULONG timeout ) 

{ 

UINT i - 0; 

last_result[0] = '\x0'; 

20 // Eat Leading CR/NL. 

while (!port.fGetChar( last_result[i) ) 

!! last_result[i] == '\r' 

I! last_result[ij == '\n') {} 

i ++ »’ // (already got 1 char ok) 

25 // Grab text until a CR/NL. 

while (port.fGetChar( last_result[i] ) 

&& last_result[i) !=■ '\n' 

&& last~result(ij !- 'Xr' 

&& i <= sizeof( last result )) { 

30 i++; 

} 

last_result(i) = 'XxO'; // Null terminate 

buffer. 

return last result; 

35 > 

/include <TObject.HPP> 

//******************************************************* 
40 ********************** 

// 

// TObject members. 

// 

45 TObj ect::-TObj ect() 

<> 

//******************************************************* 

********************** 

50 // 

// TNull members. 

// 

TNull::TNull( FLAG is_null ) 

55 : isnull( is_null } 
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{} 

FLAG TNull: :fSetNull() 
{ 

isnull « TRUE; 
return TRUE; 


/define INCL_NOPMAPI 
/define INCL DOS 
/define INCL~BSE 
/define INCL DOSSEMAPHORES 
/define INCL*~DOSNMPIPES 
/include <os2.h> 

/include <usertype.h> 
/include "TPacket.HPP" 

TPacket::TPacket( TPortfi p ) 
: Port( p ), 

text_length( o ), 
state( TRANS_NULL ) 


// no PM in this program 


TPacket::TRANS_STATE TPacket::rGetPacket() 

enq_count =0; 
nak_count ■ 0 ; 
text_length = 0 ; 

if (state !* TRANS_NULL) return TRANS NULL; 

// Enquiry Loop. 

while (fSendENQO) 

if ((state ■ rReceivePacket()) == TRANS_NAK) 
while (fSendNAK()) 

if ((state = rReceivePacket ()) == TRANS_ACK) 


( 

fSendACK() ! 
return state; 
} 


else if (state = 
{ 

fSendACK(); 
return state; 
> 

> 

fSendEOT() 


TRANS_ACK) 
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return state; 

} 


TPacket::TRANS_STATE TPacket:srReceivePacket() 

char ch; 

int i-0,j; 

// Get STX. 

if (iPort.fGetChar( ch )) 
return TRANS_ETO; 

// packet_text[i++] = ch; 

if (ch != STX) 

return TRANS_NAK; 

// Get Length. 

if (1 Port.fGetChar( ch )) 
return TRANS_NAK; 

// packet_text[i++] ■ ch; 

te xt_length = (USHORT)ch; 

if (!Port.fGetChar( ch )) 
return TRANS_NAK; 

// packet_text(i++j » ch; 

text_length = (USHORT)(ch « 8) + text_length; 

if (text_length > MAX TEXT LEN) 
return TRANS_NAK; 

// Get Text. 


for 

{ 


(j =0 ; j < text_length; j++ 

if ( Port.fGetChar( ch )) 
packet_text( j ) = ch; 


) 


else 

return ( TRANS_NAK ); 


// Get ETX. 

if ( Port.fGetChar( ch )) 

if ( ch — ETX ) 

* 

* 

II packet_text[ i++ j = ch; 

else 

return ( TRANS_NAK ) ; 

else 

{ 
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return ( TRANS NAK ); 

> 

// Get LRC. 

if (!Port.fGetChar( ch )) 
return TRANS_NAK; 

// packet_text[i++]«ch; 
return TRANS_ACK; 


UINT TPacket:: cbCopyText ( PVOID ptr, UINT len ) 

len « len < text length ? len : text length; 
memcpy( ptr, packet_text, len ); " 

return len; 


FLAG TPacket::fSendENQ() 
char enq = ENQ; 
enq_count++; 

if (enq_count > MAX_ENQ) return FALSE; 

Port.FlushlnputBuffer(); 

return Port.fWritePort( ienq, l ); 


FLAG TPacket::fSendACK() 

{ 

char ack » ACK; 

Port.FlushlnputBuffer(); 

return Port.fWritePort( tack, l ); 


FLAG TPacket::fSendNAK() 

{ 

char nak ■ NAK; 
nak_count++; 

if (nak_count > MAX_NAK) return FALSE; 

Port.FlushlnputBuffer(); 

return Port.fWritePort( tnak, l ); 


FLAG TPacket::fSendEOT() 
char eot * EOT; 

return Port.fWritePort( teot, l ); 


/define INCL_NOPMAPI 
/define INCL DOS 


// no PM in this program 
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#define INCL_BSE 
/define INCL_DOSSEMAPHORES 
/define INCL_DOSNMPIPES 
/define INCL_DOSDEVIOCTL 
/include <os2.h> 

/define JTHREADS // This implemetation is 

multi-threaded. 


/include <process.h> 

/include <string.h> 

/include <stdlib.h> 

/include "TPort.HPP" 

TPort::TPort() 

: manage thread( -1 ), 

log_flag( FALSE ) 

O 

TPort::-TPort() 

{ 

while (manage_thread != - 1 ) { 

KillManageThread(); 

DosSleep( 1000 ); // Wait 1 second. 

} 


FLAG TPort::fOpenPort( 

{ 

LINECONTROL lctl; 
DCBINFO deb; 

ULONG ulAction; 
ULONG ulPio, ulDio; 
ULONG cbTrans; 


const ComSettings &settings 


) 


// Open the port. 

rc » DosOpen( settings.port name, ShPort, SulAction, 

0, 0, OPEN_ACTION_OPEN_IF_EXISTS, 

OPEN_FLAGS_WRITE_THROUGH J 

OPEN_ACCESS_READWRITE | OPEN SHARE DENYREADWRITE, NULL ); 
if (rc) return FALSE; ” ~ 


// Set the line speed. 

ulPio * sizeof( settings.bps ); 
rc = DosOevIOCtl( hPort, IOCTL ASYNC, 
ASYNC_SETBAUDRATE, (PVOID)&settings.bps, 

ulPio, iulPio, NULL, 0, NULL ); 

if (rc) { 

DosClose( hPort ); 
return FALSE; 


// Set the line characteristics. 

Ictl.bDataBits ■ settings.data_bits; 
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i 2.? * (BYTE) settings, parity; 

Sii'rass :=^ TE) •*****■•«*:**•' 

rc “ DosDevIOCtl( hPort, IOCTL ASYNC 
ASVHC.SETLITO, Metl, ulPio, *KSSI NULL, 0, NULL , ; 

DosClose( hPort ); 
return FALSE; 

// Set the flow control. 
ulDio - sizeof deb; 
rc « DosDevIOCtl( hPort, IOCTL ASYNC 

U-'"? C 7 F0 ' NULL ' °' NULL - ilOio. SulDio „ 

DosClose( hPort ) ; 
return FALSE; 

> 

/*********M***************** m **.************ t *^^ 
********************** ************* 

dcb.usReadTimeout • 100 ; 


ooooiooo bCtlHndShal< ‘ " «°be_cts.handshake; 


oo?fSSiS bFlowReplace ox30; 

10??0000 bF1OWRePl>Ce |M " 0DE -CTS_HANDSHAKE, // f lags 2 


// flagsl 
// flags2 


// flags3 = 


dcb.fbTimeout 6® 0xF8* 

?????000 

??’?nOT W1 “° Ut ’■ » OD E_WAIT.READ_TIMEOUT; // flagsj - 

dcb.usReadTimeout ■ 300; 
dfh‘JK? 1H n dS f alCe " M0DE _<=TS HANDSHAKE; 

H^‘^ l eplace " mode.rtsIhandshake 

acb.fbTimeout * MODE NO WRITE TIMEOtrr * 

mode_wait_read_timeout ; ~ - - eout • 

rc * DosDevIOCtl( hPort- IOCTL ASYNr 
ASVNC.SETDCBIN F °, 4dcb, .IMo, AuTpio^W, 0, NULL , ; 

DosClose( hPort ); 
return FALSE; 


fRaiseDTR(); 
return TRUE; 

FLAG TPort::fClosePort() 
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{ 

rc ■ DosClose( hPort ); 
if (rc) return FALSE; 
else return TRUE; 


void TPort::FlushlnputBuffer() 

BYTE end; 
by API. 

ULONG len; 
by API. 


// Scratch, Needed 
// Scratch, Needed 


rc “ DosDevIOCtl( hPort, IOCTL GENERAL, 
DEV_FLUSHINPUT, *cmd, sizeof( end”), ilen, 

icmd, sizeof( cmd ), &len ); 


DosSleep(lO); 
Device Driver 

resetting 

buffer.Flush(); 


// Timing Kludge - Give the 
// time to flush buffer before 
// semaphore stuff. 


void TPort: 
{ 


: FlushOutputBuffer() 


BYTE cmd; 
by API. 

ULONG len; 
by API. 


// Scratch, Needed 
// Scratch, Needed 


" DosDevIOCtl ( hPort, IOCTL GENERAL. 
DEV_FLUSHOUTPUT, icmd, sizeof( cmd ), &leA, 

&cmd, sizeof( cmd ), ilen ); 


> 


ELAG TPort::fReadPort( PVOID buf, UINT &len ) 

for (int i - 0; i < len; i++) { 

if (buffer.fIsEmpty()) { 

len « i; 
return TRUE; 

} 

^ else buffer.fGetChar( ((char*)buf)[i) ); 
return TRUE; 

} 


FLAG TPort::fWritePort( PVOID buf, UINT len ) 
ULONG cbWritten; 

rc - DosWrite( hPort, buf, len, icbWritten ); 
if (rc) return FALSE; 
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else return TRUE; 


FLAG TPort::fDropDTR() 

ULONG ulPio, ulDio; 
MODEMSTATUS ms; 
ULONG com_err; 


ms.fbModemOn ■ o; 

ms.fbModemOff * DTR OFF; 

ulPio = sizeof ms; “ 

ulDio ■ sizeof com__err; 

rc » DosOevIOCtl( hPort, IOCTL ASYNC 

UlPi °' •««_«. ulDio. 

if (rc) return FALSE; 
else return TRUE; 

> 


FLAG TPort::fRaiseDTR() 
{ 

ULONG ulPio, ulDio; 
MODEMSTATUS ms; 

ULONG com_err; 


ms.conodemOn ■ DTR ON; 
ms.fbModemOff = oxFF; 
ulPio » sizeof ms; 
ulDio • sizeof com_err; 
rc " DosDevIoctl( hPort. IOCTL a svur 

W™fo S ff° DEMCTRL ' 

if (rc) return FALSE; 
else return TRUE; 

> 


ulDio, 


void _Optlink ManageThread( PVOID 
by fStartManageThread(). 

_Optlink ManageThread ( PVOID 

((TPort*)ptr)->ManagePort(); 


); // 

ptr ) 


Used internally 


FLAG TPort:: 
{ 


fStartManageThread() 


> 


fManThread ■ TRUE; 

(wSSJSlfTr " - b ' 9inthr " ad( Mana 9eThr8ad, 8192, 

if (manage_thread «<= - 1 ) return FALSE; 
else return TRUE; 


void TPort::ManagePort() 
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char read_buf(32]; 

ULONG cbRead; 

while (TRUE) { 

rc “ DosRead( hPort, read buf, sizeof read buf 
&cbRead ); ~ - ' 

if (rc) { 

// handle error here... 

} 

else if (!fManThread) break; 

for (int i « 0; i < cbRead; i++) { 

if (log_flag) log.fPostChar( read buffi] )• 
buffer.fPutChar( read_buf[i] ); ' 

buffer.SignalRelease(); 


// Signal threads exit, 
manage thread » -l; 

} 

»^^ T ^ ort: :fStartCommandThread < THREAD CommandThread, 
PVOID data ) 

{ 

fCmdThread = TRUE; 

command_thread » _beginthread( CommandThread, 8192 
data ); 9 

if (command_thread == -l) return FALSE; 
else return TRUE; 


^include <TStream.HPP> 
/include <debug.h> 
/include <string.h> 


// 

// TStream members. 

// 

TStream::TStream( UINT buf_size ) 

J buf_len( buf size ), 

buffer( new BYTE[buf_size] ), 
iptr( buffer ), 
xptr( buffer ) 

{ 

/ifdef DEBUG 

memset( buffer, UNDEF DATA, buf len ); 
/endif “ 1 ' 

> 

TStream::-TStream() 

{ 
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delete buffer; 

> 

void TStream::Reset() 
iptr » xptr * buffer; 

TStream* TStream::operator « ( const FLAG flag ) 

♦(FLAG*)iptr ■ flag; 

return inclnserterf sizeof( flag ) ); 

TStream* TStream::operator << ( const USHORT num ) 

*(USHORT*)iptr «* num; 

return inclnserter( sizeoff num ) ); 

TStream* TStream::operator « ( const ULONG num ) 

*(ULONG*)iptr - num; 

return inclnserter( sizeof( num ) ); 

TStream* TStream::operator « ( const char *str ) 
strcpy( iptr, str ); 

retu rn inclnserter( strlen( str ) + l ); 

TStreamS TStream::Put( const PVOID data, UINT size ) 

memcpy( iptr, data, size ); 
return inclnserter( size ); 

^* stream4 TStream::operator » ( FLAG &flag ) 

flag » *(FLAG*)xptr; 

return incExtractor{ sizeof( flag ) ); 

TStreami TStream::operator » ( USHORT &num ) 

num - *(USHORT*)xptr; 

return incExtrac:or( sizeof( num ) ); 

TStreami TStream::operator » ( ULONG &num ) 

num - *(ULONG*)xptr; 

return incExtractor( sizeof( num ) ); 
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TStream* TStream::operator >> ( char *str ) 
strcpy( str, xptr ); 

return incExtractor( strlen( str ) + 1 ); 

TStream* TStream::Get( PVOID data, UINT size 

memcpy( data, xptr, size ) ; • 

return incExtractor( size ); 

TStream* TStream::incExtractor( UINT n ) 


xptr +- n; 

ASSERT( xptr <= iptr ) ; 
return *this; 


TStream* TStream::inclnserter ( UINT n 1 
{ 

iptr +- n; 

ASSERT( iptr <= buffer + buf len ); 
return *this; ” 


) 


• ******************************************************** 

***************** 

;* 

,* Copyright (C) 1995. Absolute Software Corporation 

;**************** 0 ** M *„ 0 „ 04 „ MotMtitMott ^ 

**************** 

NAME DBServer WINDOWCOMPAT 

IMPORTS CTIMS.fGenerateSerCTID 
CTIMS.fXlatSerCTID 
CTIMS.fXlatCliCTID 
CTIMS.fGenerateCTCODE 
CTIMS.fConvertStrToCTCODE 
CTIMS.fConvertCTCODEToStr 

.\TObject.obj: \ 

f:\Server\TObject.CPP \ 

DBServer.MAX 

.\objects.obj: \ 

f:\Server\objects.cpp \ 

DBServer.MAK 

. \MessagePipe.obj: \ 

f:\Server\MessagePipe.CPP \ 

DBServer.MAK 
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. \CTMessage.obj: \ 

f:\Server\CTMessage.CPP \ 
DBServer.MAK 


. \ctims.obj: \ 

f:\Server\ctims.cpp \ 
DBServer.KAK 


. \DBServer.obj: \ 

f:\Server\DBServer.C \ 


{f: \ Server;F: \Server\INCLUDE;E: \SQLLIB;E* VTooTirr-ji \ rmr,,., 
OS2 H;E:\Too1s\IBHCPP\INCLUDE;>DBS erver H \ ' CPLUSX 

DBServer.MAK 


• \TSTREAM.obj : \ 

f:\Server\TSTREAM.CPP \ 

DBServer.MAK 

.\TPacket.obj: \ 

f;\Server\TPacket.CPP \ 

iL : Hirr r;M: ' SRcunciua * ;M! ' CTvinciude;$<iN “ ro ' ; )--)".=ic 

Server. MAK 

.\TModem.obj: \ 

f:\Server\TModem.CPP \ 

Server.MAK 


•\CT_Log.obj; \ 

f:\Server\CT_Log.cPP \ 

gfwp e r W;M:NSTOXInClUde7M:NCTXInclud#?$(INCLOTE ) 

Server.MAK 


•\CT_Buffer.obj ; \ 

f:\Server\CT_Buffer.CPP \ 

ffir?HPp e \ ;M: \ SRC \ Include;M: \CT\Include;$(lNCLUDE); }CT_Bu 

rfh^\ erVer ’ M \ SRC ^ Include »M:\CT\ Inclu de ; $ { INCLUDE);}serve 
Server.MAK 

.\Server.obj: \ 

f:\Server\Server.C \ 

Ms'H e \ Ver ' M:VSRCVInClude ' M: \CT\Include;$(INCLUDE);)CT_Tr 
et!Hpp r \ 6r;M: ' SRC ^ In °l«de;M;\CT\Include;$(INCLUDE);}TPack 
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Server.MAK 

.\CT_Trans.obj: \ 

f:\Server\CT_Trans.C \ 

{f:\Server;M:\SRC\Include;M:\CT\Include;$(INCLUDE);>CT Tr 
ans.H \ — 

{f:\Server;M:\SRC\Include;M:\CT\Include;$(INCLUDE);>TPacJc 

6t.HPP \ 

Server.MAK 


.\TPort.obj: \ 

f:\Server\TPort.CPP \ 

{f:\Server;M:\SRC\Include;M:\CT\Include;$(INCLUDE);>TPort 
• HPP \ 

{f:\Server;M:\SRC\Include;M:\CT\Include;$(INCLUDE);)CT Bu 
ffer.HPP \ - 

(f:\Server;M:\SRC\Include;M:\CT\Include;$(INCLUDE);)CT Lo 
9•HPP \ — 

{f:\Server;M:\SRC\Include;M:\CT\Include;$(INCLUDE);}serve 
r. n \ 

Server.MAK 

/ifndef CT_TRANS_H 
/define CT TRANS H 


///include <DB_Objects.HPP> 

/include <MessagePipe.HPP> 

/include "TPacket.HPP" 

void SntlConnect( TPort iPort, MessagePipe SPipe 
TConnectlnfo *cnct_info ); 

void SntIDisconnect( TPort iPort, TConnectlnfo 
&ConnectInfo ); 

void SendDatePacket( TPort &Port, const SNTL_DATE &date 
) ? 


void AddDays( SNTL_DATE *next_call, int days ); 
FLAG fGetDateTime( PDATETIME ); 

/endif 

/ifndef MESSAGE H 
/define MESSAGE~H 


/******************************************************** 

********************** 

Message.H 
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® e ^i nes *11 valid messages used bv the 
ServerShell. y 


Server 


and 




** 


********* 


// Define standard types, 
/include <os2def.h> 


/include <time.h> 


// Definition for the Sentinel date packet 
struct CT_DATE { * 

BYTE year; 

BYTE month; 

BYTE day; 

BYTE hour; 

BYTE minute; 


strSct 1 CT t SN n { f ° r thB Sentinel serial number packet. 
USHORT - sn[ 3 ]; 

USHORT cksum; 

CT_DATE date; 


/define CND_NUM MAXLEN : 

/define CND_NAME_MAXLEN 2 

struct CALLERID_INFO { 

BYTE month; 

BYTE day; 

BYTE hour; 

BYTE minute; 

CHAR numberfCND_NUM MAXLEN]; 
CHAR name [ CND_NAME MAXLEN]; 


enum TRANS_STATE { 

TRANS OK m 0x00, 

TRANS~BAD_CND o 0x 01! 
TRANS_BAD SN = 0x02, 
TRANS BAD~DATE = 0x04’ 

}; 


struct CT_Transaction { 
DATETIME start_time; 
CALLERID_INFO end; 
CT_SN snj 
TRANS_STATE state; 
DATETIME end-time; 


enum CT_SN_QUERY { 
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CT_SNOK = o, 

CT SN_REDFLAG = 1, 

CT_SN UNKNOWN » 2 


/define CT_BUFFER_LEN 256 
length of modem communications 
/define CT GUARD CHAR 


// Allowable 
for a cycle. 

/ • / 


Com P uTrac « messages. 


/define MAX_PHONE NUM LEN 
phone number string. 

/define CT_SERIAL_NUM_LEN 
Length of serial number packet 
/define MAX_ERROR STR LEN 
an error string. ” 


16 // Max length of a 

sizeof( CT_SN ) // 

sent by the modem. 

32 // Max length of 


enum CTMSG TYPE { 
CTMSG_UNDEF ■ 0, 
CTMSG_CONNECT, 
CTMSG SERIAL NUM, 
CTMSG_ERROR_LOG, 
CTMSG DISCONNECT 
In¬ 


struct CT_ConnectMsg { 

time_t“connect_time; 

char phone_num(MAX_PHONE_NUM_LEN]; 

/ / 


struct CT_SerialNumMsg { 
CT_SN serial^num; 


struct CT_ErrorLogMsg { 

char error_str[MAX_ERROR_STR_LEN]; 

/ / 

struct CT_DisconnectMsg { 
time_t disconnect_time; 
char log[CT_BUFFER_LEN)/ 

} / " 

struct CTMessage { 

CTMSG_TYPE type; 
union“{ 

CT_ConnectMsg Connect; 

CT_SerialNumMsg SerialNum; 

CT_ErrorLogMsg ErrorLog; 

CT_DisconnectMsg Disconnect; 
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}; 


} Msg; 


/define MAX_CTMSG_SIZE sizeof( CTMessage ) 
size of a stripped (CompuTrace) message. 


// Max 


/* Definitions for pipe messages. 


* U VaUd eVents ' The 'oHoxina prefixes are 
// 2-.™ For g * naral messages 

«Xateftf“-trans«ti“ rVer 0ri 9 ln «« d —•9- "ot 
«lat e fto L a-tra„ s r«io^ ent 0rl S in «' d " a “ sag - «<* 

to a transaction? F ° r MrVar ori » in,t,d "““9“ related 

It, a transaction? F ° r =Uent ° rigini,ted ”“« 9 es related 

«L F age B struc*Sre leli infor " ation P lea .the proper 

enum EVENTJTYPE { 

las2receTved'mess.ge. " Sarvar a ‘*"°"«'>9.. 

fatal'errorf G-ERR0R ' " S,rv « r *>« *>.d a non- 

CT SER MSG FATAL, // server 

fatal prrnr ,ij ..its ., . // server has had a 

fat CTjirLrSEs^Er nconditiona ) / iF s ^ n «r a Be 

to be processed by the client. rV * r h “essage 

CT_SER_STOP / 

client(s) stop sending messages. 

cliSt?f?-?^ tinue sending —s the 


// Server requests the 


// Server has had an 


CT_SER_ERROR, 
internal non-fatal error. 

interna ' // Server has had an 

cTser STRMe rror * wlU tar ” inata - 

string to-?T«o«d. " S * rVer has a ganaral 

all^cTients^to*terminate. " SeTV ‘ r has requested 


// Client awknowledges 
// Client has had a non- 


CT_CLI_^MSG_AWK, 
last received message. 

CT_CLI_MSG_ERROR, 
fatal error. 

CT_CLI MSG FATAL, // client h>r u.j 

“‘ct *fr°u. r d .“ 11 i r uncondltl °" all y terminate, 
to be-pro32“;5“. server. " CU ‘ nt a 


Cl IDCTITI ITC CK-IPPT 
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// Define message transfer 
message through a pipe, 
struct CT MessageHead { 
ULONG Id; 
number. 

EVENT_TYPE type; 
above). ” 

BYTE len; 
message data. 

>; 


template used to transfer a 

// The message id 
// The event type (see 
// The length the 


struct CT_MessageBuffer { 

CT_MessageHead header; 
char message[MAX_CTMSG SIZE); 

>; 

/define MAX_MSG_SIZE sizeof( CT_MessageBuffer ) 
// Max size of a pipe message. 

/endif // MESSAGE_H 

/ifndef PACKET H 
/define PACKET~H 


// Ensure byte alignment enforced! 

/pragma pack( 1 ) // For C-Set++ 

/pragma option -al // For BC++ 


/* Packet Level Defines 


******************** AAAAAA **************************** / 

/define STX 0x02 

text. 

/define ETX 0x03 

text. 

/define EOT 0x04 

transmission. 


// Start-of- 
// End-of- 
// End-of- 


/define ENQ 
/define ACK 
Acknowledgement. 
/define NAK 
acknowledgement. 


0x05 // Enquiry. 

0x06 // 

0x15 // Negative- 


/define MAX_ENQ 3 // Max 

number of ENQs. 

/define MAX NAK 2 // Max 

number of NAKs. 


/define MAX_TEXT_LEN 256 // Max size 

of a packets TEXT. 

Struct PKT_HEADER { 

BYTE stx; 

BYTE lsb_length; 
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BYTE msb_length; 


struct PKT FOOTER { 
BYTE etx; 

BYTE lrc; 


/* Packet type definitions 


// Text Type IDs. 

/define CTID_TEXT_TYPE 
Sentinel Subscription Number Packet 
/define NC TEXT TYPE 
Server Next Call Packet. 


(WORD)0x0000 
(WORD)0x0080 


/ 


// 

// 


Struct SNTL DATE { 
BYTE year; 

BYTE month; 

BYTE day; 

BYTE hour; 

BYTE minute; 


struct CTID TEXT { 

BYTE typi; 

BYTE sub_type; 

WORD sn[3); 

SNTL_DATE now date; 

); 

/define SN_TEXT CTID TEXT 
should be changed to~CTID TEXT). 

Struct CTID_PACKET { 

PKT_HEADER header; 

CTID_TEXT text; 

PKT_F00TER footer; 

}; 

SN_PACKET CTID PACKET 
should be changed to CTID_PACKET). 

struct NC_TEXT { 

WORD type; 

SNTL_DATE next_call_date; 

If “ 


// Old name (uses 


// Old name (uses 


50 


55 


Struct NC_PACKET { 
PKT_HEADER header; 
NC_TEXT text; 
PKT_FOOTER footer; 


/pragma pack() 
/pragma option -a. 


// Back to default. 
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/endif 

/ifndef SERVER_H 
/define SERVER_H 

/define DEBUG 4 

/include <debug.h> 

/include <usertype.h> 

// 

// TConnectlnfo definition. 

// 

/define CND_NUM_MAXLEN 2 

/define CND_NAME_MAXLEN 2 

Struct CALLERID_INFO { 

BYTE month; 

BYTE day; 

BYTE hour; 

BYTE minute; 

CHAR number[CND_NUM_MAXLENl; 
CHAR name[CND NAME_MAXLEN]; 


struct TConnectlnfo { 
DATETIME start_time, 
CALLERID INFO end; 

>; 

// 

// End of TConnectlnfo 

// 


end_time; 


/endif // SERVER_H 
/ifndef CT_BUFFER_HPP 
/define CT_BUFFER_HPP 

/include "server.h" 

/define TRUE 1 
/define FALSE 0 

/define CT_BUFFER_MAXLEN 256 
class CT_Buffer { 

char buffer[CT BUFFER MAXLEN1; 

UINT head, tail; 

HMTX hBufSem; 

HEV hReleaseGetSem; 

APIRET rc; 

UINT IncBufPtr( UINT ptr ) const 

{ return (++ptr >= CT_BUFFER_MAXLEN) ? 

public: 


: ptr; } 
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CT_Buffer(); 

-CT_Buffer() ; 

void Flush(); 

); BOOL fIsEmpty() const { return head -= IncBufPtr( tail 
BOOL fIsFull() const { return head — tail; > 
void SignalRelease() { DosPostEventSem( hReleaseGetSem 

) t f 

BOOL fPutChar( char ); 

BOOL fGetChar( char& ); 

>; 

#endif 

/ifndef CT_LOG HPP 
/define CT_LOG~HPP 

/define TRUE 1 
/define FALSE 0 

class CT_Log { 

char ^buffer; 

UINT index, buf_len; 

public: 


CT_Log( UINT 
-CT_Log(); 


4096 ) 


>; 


void Flush() { index * 0; } 

nnni* const { retu m index — 0; } 

BOOL flsFull() const { return index >« buf len; } 

BOOL fPostChar( char ); 

BOOL fDumpLog( const char * ); 


/endif 

/ifndef TCLIENT HPP 
/define TCLIENT“HPP 


class TClient { 

TConnectlnfo Connectlnfo; 
WOftD ctid[3); 

SNTL_DATE client_date; 
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public: 


> 


/endif If CLIENT_HPP 
/ifndef TPACKET_HPP 
/define TPACKET_HPP 

/include <os2def.h> 
/include “packet.h" 

/include <TPort.HPP> 


//**************************************** # ** 4##A4#AA#A#A 

********************** 

for C a a port PaCKet " Enca Psulates the reception of a packet 
// 

state aC>Cet: TPaC,Cet ^ TPort& Port ) Initializes internal 
// Arguments: 

from TPorti Port - the port to receive the packet 

// 

// TRANS_STATE TPacket::rGetPacket() 

// Description: 

II Attempts to receive a packet from Port usinq the 

protocol 7 

(CTPSpec) defined ln ^ Con,puTrace Protocol Specification 

// 

II Returns: The result of the attempt: 

II TRANS_ACK - packet successfully received as 

defined by CTPSpec. 

II TRANS_NAK - reception aborted due to invalid 

reception, EOT sent. 

// TRANS_ETO - ENQ timeout, no date recieved, EOT 

sent. 

a 

11 UINT TPacket::cbCopyText( ptr, len ) 

// Arguments: 

II PVOID ptr - the buffer to copy data to. 

// UINT len - the maximum number of bytes to copy. 
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into bu«« P poi„ted\| r °" * SUCeSSfUUy r *“ived packet 

the received P packet° P * eS “ P t0 U " byt ® 8 ° r the * is « <* 

it rGetPacket <which * v * r is 3malIer )• Can only be called 
// returned TRANS_ACK. 

successfully 8 ' nU “ ber ° £ bytes C ° pi * d ' or 0 if P»«*et not 
// received. 

// 

// TRANS_STATE rState() const 

// Returns: the current state of the inet» B ,. a 

class TPacket { 
public: 
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enum TRANS_STATE { 

TRANS NULL, 
activity. ~ 

TRANS_ACK, 
TRANS_NAK, 
TRANS ETO }; 
Enquiry time-out. 


// No 

// ETO - 


TPacket( TPorti ); 

TRANS_STATE rGetPacket(); 

UINT cbCopyText( PVOID ptr, UINT len ); 

TRANS_STATE rState() const { return state; > 
protected: 


FLAG fSendENQ(); 

FLAG fSendACK(); 

FLAG fSendNAK(); 

FLAG fSendEOTO; 

private: 

TPorti Port; 
int enq_count; 
int nak^count; 

USHORT text_length; 

BYTE packet text[MAX TEXT LEN1; 
TRANS_STATE state; ~ 

TRANS_STATE rReceivePacket(); 


/endif 
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08/22/95 d ^ IBM WorkFrane/2 MakeMake at 17:36:34 on 

/ 

* Th d*\Server le ShOUld be run in the fol l©wing directory: 

t ' r 

# The actions included in this makefile are: 

# COMPILE::CLC C++ 

/ LINK::CLC Link 

• all: \ 

•\DBServer.EXE 
. SUFFIXES: 


.SUFFIXES: .C .CPP 


.CPP.obj: 

Oecho WF::COMPILE::CLC C++ 

icc.exe /Tl- /xi /ID:\Server\INCLUDE /IE*\solttr 

/DDEBUr°4 K TJ^ CPLUS ^° S2H /IE: \ Too1s \ i BMCPP\INCLUDE 
/DDEBUG=4 /Tdp /Q /Wall /Fi /Ti. /Gm /G5 /Tm /C %s 

.C.obj: 

6echo WF::COMPILE::CLC C++ 

/DDEBUG-4 /Tdp /Q /Wall /Fl /Ti /Gm /G5 /Tm /C ts 


.\DBServer.EXE: \ 

.\TObject.obj \ 

.\TSTREAM.obj \ 

.\DBServer.obj \ 

.\ctims.obj \ 

.\CTMessage.obj \ 

.\MessagePipe.obj \ 

.\objects.obj \ 

<$(LIB)>DB_Objects.LIB \ 
{$(LIB)}SQL_DYN.LIB \ 

{$(LIB)JDBServer.DEF \ 
DBServer.MAK 

@echo WF::LINK::CLC Link 
icc.exe 9« 

/Tl- /xi 

/ID:\Server\INCLUDE 
/IE:\SQLLIB 

/IE: \TOOLKT21\CPLUS\OS2H 

/IE:\Tools\IBMCPP\INCLUDE 

/DDEBUG=4 

/Tdp /Q 

/Wall 

/Fi 

/Ti /Gm /G5 /Tm 
/B" /de" 

/FeDBServer.EXE 
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DB_Objects.LIB 
SQL_DYN.LIB 
DBServer.DEF 
.\TObject.obj 
5 .\TSTREAM.obj 

.\DBServer.obj 
.\ctims.obj 
.\CTMessage.obj 
.\MessagePipe.obj 
•\objects.obj 
« 
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!include DBServer.Dep 

05/^?Sl d ^ IBM WorkFraine / 2 MakeMake at 10:20:11 on 


/ 

* 

# 

i 

* 

* 


Tt ’d?\se^er le Sh ° Uld be rU " ln 0,6 foUowin 9 directory: 

Th co^i?:‘c^ C c^ ed in tWS “ K * file 

LINK::CLC Link 


• all: \ 

.\Server.EXE 


•SUFFIXES: 


•SUFFIXES: .C .CPP 


•CPP.obj: 

Oecho WF::COMPILE::CLC C++ 

/Tdp 
• C.obj: 

@echo WF::COMPILE::CLC C++ 

/Td P ^in 


•\Server.EXE: \ 

•\TPacket.obj \ 

•\TPort.obj \ 

• \CT__Trans.obj \ 

•\Server.obj \ 

•\CT_Buffer.obj \ 

.\CT_Log.obj \ 

•\TModem.obj \ 

{$(LIB)}CTIMS.LIB \ 

{$(LIB)>MessagePipe.LIB \ 

Server.MAK 

Oecho WF::LINK::CLC Link 
icc.exe @<< 

/Tl- 
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/ID:\Server\Include 
/IM:\CT\Include 
/Tdp /Q 
/Wall 
/Fi /Si 

/Ti /O /Gm /G5 /Tm 
/B" /de" 

/FeServer.EXE 
CTIMS.LIB 
MessagePipe.LIB 
.\TPacket.obj 
.\TPort.obj 
.\CT_Trans.obj 
.\Server.obj 
•\CT_Buffer.obj 
.\CT_Log.obj 
.\TModem.obj 
« 


!include Server.Dep 

#define INCL_NOPMAPI // no PM in this program, 

/define INCL_DOS 
/define INCL_BSE 
/include <os2.h> 

/include <fstream.h> 

/include <time.h> 

/include <server.h> 

/include <DB_Objects.HPP> 

/include <CTMessage.HPP> 

///include <packet.h> 

/include "CT_Trans.H" 

FLAG fQueryCTIDStatus( MessagePipe iPipe, const 
QueryCTIDStatusMsg iStatus, CTIDStatusResultMsg iResult 
) » 

FLAG fStoreMonitorEvent( MessagePipe iPipe, const 
StoreMonitorEventMsg iStore, StoreResultMsg iResult ) ; 
FLAG fSignalQuit( MessagePipe &Pipe ); 

void AssignTS( TTimestamp its, const SNTL DATE iDate ); 
void AssignSNTL DATE( SNTL DATE iDate, const TTimestamp 
its ); ~ F 

// Temp function. 

void ProcessClient( TPort iPort, TConnectlnfo 
iConnectlnfo, CTID_TEXT *text ); 

extern MessagePipe *pipe; 

// 

// SntlConnect: called when a CONNECT comand has been 
received, this function processes 
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sentinel client.® transacti °" the 

// 

void SntlConnect ( TPort APort, MessagePioe APi~ 
TConnectlnfo *cnct_info ) 9 P APipe, 


{ 


WORD msg_type; 


Fil?°«l“ a |ui" e( “= n «_info->st.rt_ti« ); 
TPacket packet( Port ); 


// 


// 

// 

// 


while (TRUE) { 

// Get a packet. 

if (packet.rGetPacket() ! = TPacket::TRANS ACK) / 
cout « "Packet Error" « endl; ~ ' < 

return; ' 

> 

// Determine packet type. 

5522(^35?) T- type - * i ”° ,( M? - typa > >* 

case CTID_TEXT_TYPE: 

// Create a new client object. 

Client( Port. PiDe tenet . 

OTD”!£r T ?e«r d ® dd t0 Cli * nt ° bj5ct - 

packet.cbCop^ejjtf AText, siteof( Text ) )• 
Client.SetCTID( Text )• 1 ' *• 

// ProcessClient. ' 

ProcessClient( Client ); 

retSrn; CUent( P ° rt ' * cnct - info ' ‘Text ); 
default: 

^ return; 


} 


void ProcessClient( TPort APort, TConnectlnfo 
AConnectlnfo, CTIDJTEXT *text ) xv ' onnectInfo 

SNTL_DATE next_call; 

// ENTER APPLICATION LAYER... 

// Query the Client state. 

QueryCTIDStatusMsg StatusMsg; 

>sn[l) t << M i«;f ri:> ‘ <ULONG|t ' 1< t->sn(0] + ((ULONG)text- 


CTIDStatusResultMsg Result; 


« ”?“? «; ,,SUeryCTIDStatUS for «ID ’ « StatusMsg.CTID 
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if ^u f ? U L ry ^ IDStatUS( * pipe ' StatusMsg, Result )) / 

y cout << Er ror in QueryCTIDStatus!" « endl; * 

else { 

cout << "CTIDStatusResult Received..." « endl- 
• endl; C ° Ut ” St * tus ' ” « (STRIKOReMlt^wi; « 

endl; °° Ut " PeriodDays “ " « Result.PeriodDays « 

cout << " PeriodMinutes = " << 

Result.PeriodMinutes << endl; 

cout « •• StolenFlag - " « 

(STRING)Result.StolenFlag « endl; 

cout << " SpecialProcess = ” « 

Result.SpecialProcess << endl; 

j cou t << Orgnum = " << Result.Orgnum_n << endl; 

^ NextCa ll Message back to the Client 

CTTimestamp next_ts; 

AssignTS( next_ts, text->now date )• 
ir (next ts.usYearn < 1900)" / // t* ^ 4 . 

velld substitute the lic.l dati instead date “ n0t 

next^ts = Connectlnfo.start_time; 

RpeMHV S:A ^^ oDate ^ °' Result.PeriodDays, 0 
Result.PeriodMinutes ); Y > i 

AssignSNTL_DATE( next_call, next_ts ); 

SendDatePacket( Port, next call ); 

SntlDisconnect( Port, ConnectInfo ) ; 

// Store the Monitor Event. 

StoreMonitorEventMsg Event; 

E^nJ‘fJ° re J S ? t0 ^ en * Result.StolenFlag; 

Event.StoreAsExpire » FALSE; 

Event.LicenseStatus = Result.Status; 

Event - clie ntTS, text->now date ); 

0. R«^ N p^ a Se“?f Date < «• Result.PeriodDays, 

Event.NextCallClientTSn = next ts- 
Event.CTID = StatusMsg.CTID; ~ * 

Event.TelcoTS_n.Assign( Event.ServerTS.usYear(), 

ConnectInfo.end.month, 

Connectlnfo.end.day, 

ConnectInfo.end.hour, 

Connectlnfo.end.minute )• 

Event.DurationSec n « 0 ; 

Event.CallerID_n = (const 

Ch3 pvoiI C ^ LE S ID “ SIZE]} Conne c*Info. end. number; 

Event.LmeNum » 1; 

Event.LogFlag - FALSE; 
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Event.EnvironmentlD - ''DBS-9508"* 
Event.ErrorCnt "0; ' 


StoreResultMsg ResultMsg; 

cout « endl « "storing the MonitorEvent... 

if in5? t 55 e !fr nit ° r ? Vent( * pi P*» Event, ResultMsg )) 
cout << Error m S toreMoni tor Event!" << endl; 

else { 

cout << "StoreResult » " « (ResultMso Result •> 
"TRUE" ; "FALSE") « endl; ' 9 *Result ? 


> 


> 


void SendDatePacketf TPort& Port, const SNTL_DATE& date 
NC_PACKET packet; 


packet.header.stx * STX; 
packet.header.lsb_length 
packet.header.msb_length 


* sizeof( NCJTEXT ); 
“ 0; 


packet.text.type - NC TEXT TYPE; 
packet.text.next_call_date~« date; 

packet.footer.etx ■ ETX; 
packet.footer.Ire “ 0 ; 


} Port *fWritePort( (PVOID)ipacket, sizeof( packet ) ); 


FLAG fQueryCTIDStatus( MessagePipe *Pipe. const 
QueryCTIDStatusMsg istatus. CTIDStatusReiu?S!sg tReault 

TStream in_strm, out_strm; 


out_strm << Status; 

FALSE; (!PiPe * fTranSaCt( OUt - Str,n ' in - str “ )) return 
in_stnn >> Result; 


if (Result.eType() 
else return FALSE; 


CTID_STATUS_RESULT) return TRUE; 


FLAG fStoreMonitorEvent( MessagePipe iPipe 
StoreMonitorEventMsg &Store, StoreResultMsg 

TStream in_strm, out_strm; 

out_strm « store; 


const 

&Result 


) 
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if (!Pipe.fTransact( out strm, in strm )) return 
FALSE; 

in_strm » Result; 

if (Result.eType() == STORE_RESULT) return TRUE; 
else return FALSE; 


> 


FLAG fSignalQuit( MessagePipe &Pipe ) 

{ 

TStream stream; 

CliQuitMsg QuitMsg; 

stream << QuitMsg; 

return Pipe.fSendMessage( stream ); 


void SntlDisconnect( TPort &Port, TConnectlnfo 
fiConnectlnfo ) 

{ 

// Drop DTR. 

DosSleep( 500 ); // Broc - 13 Feb 95 

// Add delay to let modem clear xmt 

buffer 

// to fix intermittent modem fault. 

Port.fDropDTR(); 

cout << "Disconnecting flush; 

DosGetDateTime( &ConnectInfo.end_time ); // 

Fill end time. 

DosSleep( 200 ); 

// Raise DTR. 

Port.fRaiseDTR(); 

> 


// *** helper functions. 

UCHAR BCD2ToUChar( BYTE bed ) 

{ 

// Convert a two digit bed number to decimal, 
return (bed >> 4) * 10 + (bed & OxOF); 

> 

BYTE UCharToBCD2( UCHAR dec ) 

{ 

// Convert a 8 bit decimal number to bed. 

return (dec % 10) + (((dec / 10) % 10) << 4); 

} 

USHORT BCD4ToUShort( WORD bed ) 

< 
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100 ♦ (Ocd 8 OxOOFO, »\°r. + ^ ( + bC ^ d “io^ ; 8 > * 
WORD UShortToBCD4( USHORT dec ) 

" sss; 0 f di9it -—• 

/ 100 , % 10 , « 8 ) i f 0 ”> * j;» «(«d.c 

void AssignTSf TTimestamp Its. const SNTL_DAT£ , 

ts.Assignf BCD2ToUChar( Date.year ) 

BCD2ToUChar( Date.month j 
BCD2ToUChar( Date.day ) ,f 

n£?i?Z oUChar ( Date.hour ), 

} BCD2ToUChar( Date.minute ) ) ; 


void)AssignSNTL_DATE( SNTL_DATE &Date, 

{ 


const TTimestamp 


> 


Date.year 
Date.month 
Date.day 
Date.hour 
Date.minute 


" ucharToBCD2( 
* UCharToBCD 2 ( 
=* UCharToBCD 2 ( 
" UCharToBCD2( 
= UCharToBCD 2 ( 


ts.usYear() % 
ts.usMonth() 
ts.usDay() ); 
ts.usHour() ) 
ts.usMinute () 


100 

); 


); 


); 


/* 

BVTE HiNibble( BYTE b ) 
inline BYTE LoNibble( BYTE b ) 


{ return (BYTE)((b & OxFO) 
{ return (BYTE)(b & OxOF); 


void AddDays( SNTL_DATE *next_call. 


Sta 0x31 BYTE dayS - per - mont h(18) e 


0x28, 

0x30 ( 

0X31, 

0X30, 

0X31, 

0X30, 

0X31, 

0X30, 

0X00, 

0X00, 

0x00, 

0x00, 

0X00, 

0X00, 


// 0x03 - March 


// 0x06 - June 


// 0x09 - sept 
// 0x0A 
// OxOB 
// OxOC 
// OxOD 
// OxOE 
// OxOF 


int days ) 
{ 
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0X31, // 0x10 - Oct 

0x30, 

0X31 // 0X12 - Dec 

}; 

BYTE old_day * next call->day; 

// Save for BCD adjust. 

// Add the days to the current date. 
next_call->day +« days; 

// Check if we passed the end of the current month. 

^ if (next_call->day > days_per_month(next_call->month]) 

// Add one to month. 

if (++next_call->month >12) { 

next_call->month - l; 

++next_call->year; 

} 

next _ call_> day -« days_per_month[next call->monthl - 
1# // Roll over to proper day. 

II Adjust the day back to BCD. 

if (LoNibble( next call->day ) > 0x9 || HiNibble( 
next_call->day ) i* HlNibble( old_day )) 
next_call->day +» 6; 

// Adjust the month to BCD. 

if (LoNibble( next call->month ) > 0x9) next call- 
>month +■ 6; ~ — 

// Adjust the year back to BCD. 

if (LoNibble( next_call->year ) > 0x9) next call->year 
+• 6 ; ~ 

if (HiNibble( next_call->year ) > 0x9) next call->year 
** LoNibble ( next_call->year ); ~ 

*1 


/define INCL_DOSNMPIPES 
/include <os2.h> 

/include <iostream.h> 
/include <fstream.h> 
/include <string.h> 

/include <server.h> 

/include "DBServer.H" 

/include <usertype.h> 
/include <DB_Objects.HPP> 
/include <CTID.H> 

/include <CTIMS.HPP> 
/include <CTHessage.HPP> 
/include <MessagePipe.HPP> 
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^ S S.°rr? CUentEVant( ‘Pipe, TStream 

KwSSSSSnSSST M ' SS * g ‘ PlP * 

£ Pr< ? cessS toreMonitorEvent ( MessagePipe spine 
StoreMonxtorEventMsg SMEvent ); 9 P Pl P e ' 

FLAG fUpdateLicenseStatus( StoreMonitorEventMsgs ); 

// Helper functions. 

FLAG _fCopyTStoDBVars( char ‘tsstring, short *indicat OI - 
CTTimestamp Sts, STRING varname - "TiiestaJip" ™ dlc * tor ' 

DataBase DB; 

int main( int argc, char *argv[] ) 
if (argc !» 3) { 

<pip._n^e t >: < «" U ”2!; dbserver <data base_name> 

DB.SetName( argv(l] ); 

MessagePipe^pipe; Faccory( «9V(2), 512. 10 ,; 
if (!DB.fConnect()) { 

return 1 ; J,# 

} 

if (!Factory.fCreatePipe( pipe )) / 

FactoryTrcDosErrorCode^)* DosErrorCode ' " « 

return 2; ' 

> 

endl? Ut <<: " Maltin « for Pipe to connect to client...* « 
if (!pipe->fopenPipe()) { 

cout « "Error connecting to the client 
DosErrorCode - ■ « pip.-> rC Do S ErrorCod.<>*<< .„di ; 

> 

cout « "Pipe connected to client." « endl; 

TStream MsgStream; 

Hs g «r«e. < Iesno; CUentEVe " t( ‘ Plp *' » 

pipe->fciosePipe(); 
return 0; 

> 
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FLAG fProcessClientEvent( MessagePipe &Pipe, TStream 
6MsgStream ) 

{ 

if (!Pipe.fGetMessage( MsgStream )} { 

cout « "Error reading message from pipe 
DosErrorCode - " << Pipe.rcDosErrorCode() « endl; 
return FALSE; 

> 

CTMessageHeader Header; 

MsgStream >>. Header; 
switch (Header.eType()) { 

case QUERY_CTID_STATUS: 

{ 

QueryCTIDStatusMsg StatusMsg( Header ); 
MsgStream » *(QueryCTIDStatus*)iStatusMsg; 
if (!fProcessQueryCTIDStatus( Pipe, StatusMsg )) 
cout << "Error in fProcessQueryCTIDStatus, 
SQLCODE ■ " << (long)ulGetSQLCode() << endl; 

break; 

case STORE_MONITOREVENT: 

{ 

StoreMonitorEventMsg EventMsg( Header ); 
MsgStream >> *(StoreMonitorEvent*)iEventMsg; 

^ if (!fProcessStoreMonitorEvent( Pipe, EventMsg 

cout « "Error in fProcessStoreMonitorEvent, 
SQLCODE - " « (long)ulGetSQLCode() « endl; 

} 

break; 

case CLI_QUIT: 

return FALSE; 
default: 

cout << "Unknown Command Received!".« endl; 
return FALSE; 

> 

return TRUE; 


FLAG fProcessQueryCTIDStatus( MessagePipe iPipe, 
QueryCTIDStatusMsg &CTID ) 

45 { 

_CTlicense Rec; 

CTIDStatusResultMsg ResultMsg; 

if (!fXlatCliCTID( CTID.CTID, CTID.CTID )) { 

50 cout « "Error converting client CTID to server 

CTID" « endl; 

// Proccess error here. 

} 
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ResultMsg.QueryResult 

CTID.CTID ); 


_fQueryLicense( &Rec, 


if (!ResultMsg.QueryResult) / 
ResultMsg.CTID 
ResultMsg.Status 
CTLicStatus::ACTIVE; 

ResultMsg.PeriodOays 
ResultMsg.PeriodMinutes 
ResultMsg.StolenFlag 
ResultMsg.SpecialProcess 
ResultMsg.Orgnun n 
ResultMsg.LastCallTS n 
ResultMsg.NextCallTS n 
ResultMsg.NextCallClIentTS n 
ResultMsg.ProductType 

else { 

ResultMsg.CTID 
ResultMsg.Status 
ResultMsg.PeriodDays 
ResultMsg.PeriodMinutes 
ResultMsg.StolenFlag 


CTID.CTID; 


= 2; 

' 0 ; 

! FALSE; 

! Of 

.fSetNull() 
.fSetNull() 
.fSetNull() 
.fSetNull () 
.fSetNull () 


Rec.CTID; 

Rec.LicStatus; 

Rec.PeriodDays; 
Rec.PeriodMinutes; 
Rec.StolenFlag — 


Rec.SpecialProcess; 
. Assign( 

); 

); 


ResultMsg.SpecialProcess 
ResultMsg.LastCallTS n .Assian; 

Rec. Last CallTS_N, DB_ISNtnX( Rec.IsHuil £I«allTS ) 
ResultMsg.NextCallTS n Aisian; * 

Rec. Nextca 11TS_N, DB_IS»ULL< Rec.IsNuilSertCallTS , 
ResultMsg.NextCallClientTS n .Aisian; * 

Rec.NextCallClientTS N, DB ISNULLf ^ 

Rec. IsNull__NextCallcXientTS ) )• 

if (DB_ISNULL( Rec.IsNull'Orgnun )) 
els * esultMsg * 0r 9 nun_n ” .fSetNul1(); 

R 6 sultNs 9 • Orgnun n & Rec omnim m * 

, . ProductType - ReciproSuct?^; 


cout « "SQLCODE . .. « {long) ulGetSQLCode () « en(U 

// Return Query results. 

TStream Stream; 

Stream << ResultMsg; 

return Pipe.fSendMessage( Stream ); 


FLAG f ProcessStoreMonitorEvent( MessagePiDe SPine 
StoreMonitorEventMsg &Msg ) 9 P P®» 

StoreResultMsg ResultMsg; 


// Prepare reply message. 
ResultMsg.Result * TRUE; 


SUBSTITUTE SHEET 




// Prepare the monitorevent data. 

_CTmonitorEvent Rec; 

if (JfXlatCliCTID( (ULONG&)Rec.CTID, Msg.CTID )) { 

cout « "Error converting client CTID to server 
CTID" << endl; 

// Proccess error here. 


_fCopyTStoDBVars( Rec.ServerTS, NULL, 

Msg.ServerTS, "ServerTS" ); 

_fCopyTStoDBVars( Rec.ClientTS, NULL, 

Msg.ClientTS, "ClientTS" ); 

_fCopyTStoDBVars( Rec.TelcoTS N, *Rec.IsNull TelcoTS 
Msg.TelcoTS_n, "TelcoTS" ); “ “ 

Rec.DurationSec_N ■ Msg.DurationSec n; 

Rec.IsNull_DurationSec * DB_NOT_NULL; 

if (!Msg.CallerID_n) { 

Rec.IsNull_CalIerID = DB_NULL; 

else { 

Rec.IsNull_CallerID * DB_NOT NULL; 

« ~ strncpy( Rec.CallerlD^N, Msg.CallerlD n, sizeoff 

Rec.CallerlD N ) ); - 1 


Rec.LineNun * Msg.LineNum; 


if (IMsg.LogFlag) { 

cout « "INVALID DATA ERROR 
defaulting to FALSE" << endl; 
Rec.LogFlag ■ 'S'; 

) 

else { 


LogFlag is NULL, 


Rec.LogFlag = ((STRING)Msg.LogFlag)fO]; 


strncpy( Rec.EnvironnentID, Msg.EnvironmentID, sizeoff 
Rec.EnvironmentID ) ); 1 


Rec.ErrorCnt « Msg.ErrorCnt; 


// Update the License Record. 


if 


Table, 
endl; 


(!fUpdateLicenseStatus( Msg )) { 

if (ulGetSQLCode() !■ 100) { 

cout << "DB2_ERROR: Error updating License 
CliCTID - " « Msg.CTID 

<< " SQLCODE ■ " << (long)ulGetSQLCode() << 


} 


) 


// Perform the insert. 
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jf^^InscrtlntoMonitorEvent( &Rec )) / 

ResultMsg.Result « FALSE; ' ' 

else { 

if (Msg.StoreAsStolen) { 

if ( ! _ f InsertIntoMonitorEventStolen( 4Rec n 
ResultMsg.Result ■ FALSE; ' 


} 


> 


if (Msg.storeAsExpire) { 


cout « "SQLCODE - " « (long)ulGetSQLCode() « endl; 

TStream stream; 

Stream << ResultMsg; 

TRUE) 't iPe ' fSen '“ < ‘ ssa ’*( Str *«» ) U ResultMsg.Result - 
DB.Commit(); 
return TRUE; 

} 

else { 

DB.Rollbackf); 
return FALSE; 


FLAG fUpdateLicenseStatus( StoreMonitorEventMsg &Msg ) 

_CTupdateLicenseStatus Rec; 

short dummy l; .. ... . 

Null validation below. 11 UsCd to quiet the 


fXlatCliCTID( (ULONG4)Rec.CTID, Msg.CTJ 

te cS', 


); 

sizeof ( 


fCopyTStoDBVars( Rec.LastCallTs n . . 

Ksg.Serv.rTS, -ESSuS* ' ) .“ U, ” y1 ' 

-oooi £ .ii?s?:s;r;?oo 1T ?oSiooiT y( 

if (!Msg. NextCallClientTS n) strcpyf 
Rec.NextCellclientTS_N, "OOOI-OI-OI-OO.OO.OO.OOOOOO" ); 

return .fUpdateLicenseStatus( tRec ); 
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} 


FLA G _£CopyTStoDBVars( char ‘tsstring, short ‘indicator, 
S CTTimestamp fcts, STRING varname ) 

{ 

if (Its) { 

if (indicator »• NULL) { 

cout « " INVALID__DATA_ERROR : " << varname « " 
10 is NULL, forcing validation” « endl; 

ts.ForceValidate(); 

) 

else { 

‘indicator « DB_NULL; 

15 tsstring[0] ■ '\x0'; 

return FALSE; 

} 

} 

else if (!ts.fValidate()) { 

20 cout « "INVALID_DATA_ERROR: " « varname « " is 

invalid, forcing validation - " « ts « endl; 
ts.ForceValidate(); 

> 

25 if (indicator !■ NULL) ‘indicator = DB NOT NULL; 

ts.ToSTRXNG( tsstring ); — 

return TRUE; 

> 

30 


/define INCL_NOPMAPI // no PM in this program 

/define INCL_DOS 
35 /define INCL_BSE 

/define INCL OOSSEMAPHORES 
/define INCL~DOSNMPIPES 
/include <os2.h> 

40 /include <ctype.h> 

/include <stdlib.h> 

/include <iostream.h> 

/include <fstream.h> 

45 /include <server.h> 

/include <MessagePipe.HPP> 

/include <TModem.HPP> 

50 /include "CT_Trans.H" 

/‘GLOBAL 

VARIABLES““““““““““*““‘““*“““““/ 

55 HEV hQuitSem; 
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// Temp, move to thread. 
CltMsgPipeFactory ‘factory; 
MessagePipe ‘pipe; 

**/ 


FLAG fLoadLineThreads( TModemt. pcsz p rev \. 
flag 72 Ptli ^ CT - Co,MD *ndThread ( PVOID ) • ' 

STRING buffer ) ; TPort 4Port ' TConnectlnfo ‘Cnctlnfo, 

TP °«™f- mSettings Co »Setting ■ / 
comi , // port nane 

- // not used 

38400, // bps 

11 ^ If data b its 

TPort::N 0 , //no parity 

TPort:: 0 NE // one stop bit 

/ / 

int main( int arge, char *argv[] ) 

APIRET rc; 

cout « "CompuTrace Server vo. 99 q« « e ndl; 

// Check arguments. 
if (arge 4 ) { 

return 0; ' 

> 

// Create quit semaphore. 

)) l. o) re ‘ DosCreateE vencsem( null, ihOuitSem. o, FALSE 

return l; 

factory - naw Clt*s,Pip. Fietory( irgvtlJi S1J 

11 i« ad port serv «r threads. 

TPort Port; 

TModem Modem » Port/ 

r«tu™ ( y- L °“ ,JUn * Threais< M “>“. «9v(2j, argv t3 , ,) 


and”” ~ ' S " CCM! '“ U ' *° local code.- « 

// Wait for quit signal. 

Doswa i tEventSeo( hQuitSeo, SEM.Ihdefihite.wait ); 
return 0; 
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// 

// fLoadLineThreads: Loads the threads to operate a 
server line. This function 


// 

line. 


should be called for each server 


// 

. FLAG fLoadLineThreads( TModem 4Modem, 
init str ) 

{ 

// Start port log. 

// Port.Logon(); 


PCS2 port_str, PCSZ 


// Open port. 

ComSetting.port_name *= port str; 
if (!Modem.Portjj.fOpenPortJ ComSetting )) { 

cout << "Error openning port" << endl * 
return FALSE; 


// Start the port manage thread. 

if (!Modem.Port().fStartManageThread ()) { 
cout << "Thread execution error" << endl; 
return FALSE; 

> 


// Initialize the modem. 

STRING result - Modem.strSendCommand( init str. -l ); 
if (strcmpf result, "OK" ) !■ o) { ” ' 

cout << "Error initialising modem" << endl; 
return FALSE; ' 

> 


// Connect pipe to dbserver 

;;f® c t or y- > fCreatePipe( pipe )) return FALSE 
if (!pipe->fOpenPipe()) return FALSE 


// Start the command thread. 

if (!Modem.Port().fStartCommandThread ( 
CT_CommandThread, (PVOID)tModem )} { 

cout « "Thread execution error" « endl; 
Modem.Port().KillManageThread() ; 
return FALSE; 

} 


return TRUE; 

) 


// 

// CT_CommandThread: Processes incoming data from a 
server line. 

// 

void _Optlink CT^CommandThread( PVOID ptr ) 
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TModem (Modern ■» * (TModem*) ptr; // Alias 

(should be optimized out by the compiler). 

// Thread local variables 
STRING result; 

TConnectlnfo cnct_info; 


while (TRUE) { 

result ■ Modem.strGetString( -1 ); 

N Parse buffer for cmd. 

{ if (1fParseCmd( Modem.Port(), tcnct_info, result )) 

memset( (PVOID)tenet info, '\x 0 ', sizeof 
cnct_mfo ); 

) 

> 

> 


/define CND_DATE FIELD 
/define CND__TIME~FIELD 
/define CND_NUMBER_FIELD 

/define CND_NONUM FIELD 
/define CND_NAME FIELD 
/define CND NONAME FIELD 


"DATE 
"TIME «" 

"NMBR «" 

"REASON FOR NO NUMBER:" 
"CALLER NAME:" 

"REASON FOR NO NAME:" 


// 

// fParseCmd: called when a '\n' has been received, this 
function will process the string. 

fat.^f <, *■ k **J urns TRUE if a transaction is occuring, 
FALSE if the buffers should be cleared. H 


STO?N"bu‘f« d ) < TPOrt " 0rt ' *cnct.i„fo, 

{ 

const char *index; 


// Parse command. 

if (strstr( buffer, "RING" ) !- NULL) { 
cout « "Command parsed as RING" « endl; 

MTrrf| ,Se r if ^ index " strstr( buffer, CND DATE FIELD )) !■ 
NULL) { “ “ 9 * 

index +- sizeof CND_DATE_FIELD; 
while (1isdigit( "index )) index++; 

// Grab the month. 

return i FALSE; di9it( * ind * X J 11 !isdigit < *(index+i) )) 

cnct_info- > cnd.month ■ (*index++ - ' 0 ') * io; 
cnct_info->cnd.month +« *index++ - 
// Grab~the day, 9 

* ind * X ’ 11 Usdl,it( *<index*l) )) 

cnct_info->cnd.day * (*index++ - '0') * 10; 


SUBSTITUTE SHEET 



cnct_info->cnd.day +«* *index++ - 'O'; 
cout « buffer << endl; 

> 

else if ((index - strstr( buffer, CND TIME FIELD )) 
HULL) { “ ~ 

index +« sizeof CND_TIME_FIELD; 
while (!isdigit( * index )) index-*"*-; 

// Grab the hour. 

if (!isdigit( *index ) JJ !isdigit( *(index+l) )) 
return FALSE; 

cnct_info->cnd.hour ■ (*index++ - '0') * 10; 
cnct_info->cnd.hour +<* *index++ - 'O'; 

// Grab~the minute. 

if (!isdigit( *index ) J| Jisdigit( *(index+i) )) 
return FALSE; 

cnct_info->cnd.minute - (*index++ - '0') * 10; 
cnct_info->cnd.minute += *index++ - 'O'; 

cout << buffer << endl; 

> 

else if ((index = strstr( buffer, CND NUMBER FIELD )) 
!= NULL) { “ “ 

index += sizeof CND_NUMBER FIELD; 
while (isspace( *index )) Tndex++; 

// Grab the number. 

for (int i - 0; i < CND_NUM_MAXLEN; i++) < 

if (index(i) -- '\x0' || index(i) -» '\r') { 

cnct info->cnd.numberfil ■ '\x0'; 
break; 

> 

else { 

cnct_info->cnd.number[i) « index[i]; 

> 

cout << buffer << endl; 

> 

else if (strstr( buffer, CND_NONUM FIELD ) !« NULL) 
index +■ sizeof CND_NONUM FIELD? 

// Grab the string. “ 

while (isspace( *index )) index-*-*-; 

for (int i - 0; i < CND_NUM MAXLEN; i++) { 

if (index(i) «« '\x0' |j”index[i) -« '\r') { 
cnct_info->cnd.number(i) ■ '\x 0 '; 
break; 

} 

else { 

cnct_info->cnd.number[i] » index[i); 

) 

cout « buffer « endl; 

) 

else if (strstr( buffer, CND_NAME_FIELD ) !- NULL) { 
index +» sizeof CND_NAME FIELD; 
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// Grab the nane. 

?^ 1 ? ( f S ? paCe( * index >> index++; 

if “r°i 1 < CND _NAME MAXLEN; i++) / 

if (index Til *== • \xO' 1 1 ^ * - . ' ' 


i i 
i i 


> 


cn ct_info->cnd.nane fil 
break; 


index[ i ] -= '\ r M / 

- '\X0'; 1 


else { 

cnc b_info->cnd.name(i] 


index(i); 


^ cout « buffer « endl; 

else if (strstr( buffer, CND_NONAME_FIELD ) 

// SiZe ° f CND.NONAME FIELD; 

// Grab the string. ” 

fSi 1 ?- ( i S ® pace( * index )) index++; 

° i * ?' i < CND NAME MAXLEN; L++\ / 

” ,XX07 !! Index?! iTJvr'S 
cnct_mfo->cnd.namefi] • '\ x o'* ' ' 

break; 1 J '* u ' 

> 

else { 

cncVinfo->cnd.nane(ij - index(i); 


NULL) 


) 


> 


} cout « buffer « endl; 

else if (strstr( buffer, "CONNECT" ) »« umn , 
cout « "Command parsed as CONNECT" « endl;* 


) 


r«J?n n ?:^ ; P ° rt - * pip *’ cn=t_i„,o „ 


else if (strstr( buffer, "NO CARRIER" ) •- mutt^ , 
return < FALSE^ a " d P * r “ d >s 1,0 CARRIER " « «ndi; 

) 

else if (strstr( buffer, "OK" ) NULL> / 

ss^sr* par “ d - ~ <<^ ( 

) 

else if (strstr( buffer, "ERROR" ) mulu 

return < FALSE^ and ~ 

} 

else { 

endl; C ° Ut ** " Un)cnown command received: " « buffer « 
return FALSE; 

} 

return TRUE; 


{ 
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> 


return TRUE; 


FLAG CTOrgnum::fSetIndex( UINT num ) 

if (nun > 9999 ) { 

return FALSE; 

> 

else { 

valuefORGMUM^PREFIX^siZE ♦ o, . (numlloooo) / 100 0 


♦ '0 
'O'; 


valuerORGNUM_PREFXX_SIZE ♦ 1, . (nuB%1000) , , 

valu« (ORGKUM_prefix_SIZE * 2 ] . (numtloO) / l0 * 
valu.(ORGNUM_PREFIX_SIZE * 3 ] . (nuB % 10) + . 


flag CTOrgnum::fGetPrefix( char *str ) const 

if (Strlen( str ) != ORGNUM PREFIX SIZEI 1 
return FALSE; - J - - blZE ) ( 

> 

else { 

str[ 0 ] «= valueroi; 
strjij « valuefi]; 
str[ 2 ] - value [2 ]; 
str[3] « valuer31; 

} str[4) - '\x0'; 


flag CTOrgnum: :fGatInd.x< OINT ti ) const 
ietu?i O TR U |. (ValUe(0RG,,0M - PRE «*-S«E]) ); 

} 

flag CTOrgnum::fGeneratePr.fix< string or,_na»e ) 
char pre(ORGNUM_PREFIX_SI2E); 

" to £ r alphanu " charaetars. 

if °/ 3 " 0; 1 < ORGNUM PREFIX SIZE*) / 

if (isalnum( orgname(j++j )) p? e [ij; ~ f 


} 


> 


. ***** .********- 

// 

// iostrean stream operators. 
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USHORT nun; 


) 


buf » *(TNull*)&lic; 
if (!lic) return buf; 
else { 

buf » num; 

lie.value ■ CTLicStatus::VALUEf 
return buf; 


> 


num ) ; 


TStreamt op.rator « , TStrean, sbuf, const CTOrgnus, Snun 
{ 


buf « *(TNull*)&num; 
if (!nun) return buf; 
else return buf.Put( PVOIDf 
nun.value ) ); 


nun.value 


) , 


sizeof( 


TStr«a« operator » ( TStr.am ibuf, CTOrgnun, tmiI , 


> 


buf » *(TNull*)&num; 
if (!num) return buf; 
else return buf.Get( num.value. 


sizeof( nun.value 


); 


30 
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Ieien“‘ ° Perat ° r ~ ( TStr «" const CTHonitorEvent 

{ 

return buf << event.CTID 

<< event.ServerTS 
<< event.ClientTS 
<< event.TelcoTS n 
<< event.DurationSec n 
« event.CallerlD n ” 

« event.LineNum 
« event.LogFlag 

<< event.EnvironnentID 
y << event.ErrorCnt; 

° perator >> ( stream tbuf, CTMonitorEvant 

{ 

return buf » event.CTID 

>> event.ServerTS 
» event.ClientTS 
» event.TelcoTS n 
» event.DurationSec n 
» event.CallerlD n ~ 

» event.LineNum “ 

» event. LogFlag 
» event.EnvironnentID 
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{ 

ULONG post_count; 

DosRequestMutexSem( hBufSem, SEM INDEFINITE WAIT ) • 
head ■ 0; ~ — ' ' 

tail * CT_BUFFER_MAXLEN; 

DosResetEventSem( hReleaseGetSem, &post count )• 
DosReleaseMutexSem( hBufSem ); ~ ' 


FLAG CT_Buffer::fPutChar( char ch ) 

{ 

FLAG ret_val; 

// Get ownership of the semaphore. 

rc » DosRequestMutexSem( hBufSem, SEM_INDEFINITE WAIT 

) 1 

if (rc) return FALSE; 

// First check that the loq buffer hasn't overflown 
if (!fIsFull(>) { 

// Store the char, update head, signal the event. 
buffer[head) <= ch; 
head « IncBufPtr( head ); 

DosPostEventSem( hReleaseGetSem ); 
ret_val « TRUE; 

> 

else ret_val - FALSE; 

// Release the semaphore. 

DosReleaseMutexSem( hBufSem ); 

return ret_val; 


FLAG CT_Buffer::fGetChar( char *ch ) 

( 

ULONG post__count; 

FLAG ret_val; 

// If empty wait for timeout. 

if (flsEmptyO) DosWaitEventSem( hReleaseGetSem, 
SEM_INDEFINITE_WAIT ); 

// Get ownership of the semaphore. 

rc « DosRequestMutexSem( hBufSem, SEM INDEFINITE WAIT 
); — 
if (rc) return FALSE; 

if (IflsEmpty()) { 

// Fetch the char, update tail, 
tail « IncBufPtr( tail ); 
ch - buffer(tail); 
ret_val - TRUE; 

) 
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> 


ceturn true; 


/define INCL_DOSNMPIPES 
/include <os2.h> 

/include <MessagePipe.HPP> 

//******************** tinHnummm 

********************** *********************** 

/ /*!«!lffi?!f! ctory Implementation. 

—****** —* . ...... 

^"u“ p Sm t pr^i:rr 9,,ipeF ‘ ctory( pcsz —• •» 

: MsgPipeFactory( msg len ) 
pipe_name( name ), ~ 

} Pipe_len( pipe_len ) 

flag SvrHsgPipeFactory: :fcre.tePip.( MessagePipe .ippip. 


ppipe » new MessagePipe( this ); 
return TRUE; 


FIAG SvrHsgPipeFactory:: fOestroypipe ( MessagePipe .p pip . 


delete ppipe; 
return TRUE; 


FLAG SvrHsgPipeFactory: :fOpenPipe( MessagePipe .pipe ) 
HPIPE hPipe; 

// Create and connect the named pipe 

pipe->rc - DosCreateNPipe( (PSZ)pipe name, ihPipe 

Data **„«. * NP NOWRITEBEHIND * P *' 

ta sent to remote pipes immediatly. 

T-c-v.y client/server coSsSSSfiHT"' 

I/O to pipe blocked until 3 ata avaliable 
Message pip, type. "F-TYPE.MESSAGE • 

Messafe read node type. NP - READHOOE -"*SSAGE • 

infinite nusber of allowed instances of this pipe. 
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// 

// 

// 

// 

// 



return TRUE; 

> 


FLAG CltMsgPipeFactory::fOpenPipe( MessagePipe *pip e ) 

HPIPE hPipe; 

ULONG ulAction; 


pipe->rc ■ DosOpen( pipe name, thPipe, 
FILEJIORMAL, FILE OPEN, 
„„„. OPEN ACCESS READWRITE ! 

OPEN_SHARE_DENYNONE, ~ ' 

(PEAOP2)NULL ); 
if (pipe->rc) return FALSE; 


tulAction, o, 


pipe->SetHandle( hPipe ); 
return TRUE; 


FLAG CltMsgPipeFactory::fClosePipe( MessagePipe *pi pe ) 

HPIPE hPipe ■ pipe->GetHandle(); 

// Wait till the pipe is empty. 

pipe->rc - DosResetBuffer( hPipe ); 
if (pipe->rc) return FALSE; 

// Close the pipe handle, 
rc » DosClose( hPipe ); 
if (pipe->rc) return FALSE; 

return TRUE; 

> 


//***.«***o****.. tt ,„ MMt 

//^^®ssagePipe Implementation 


MessagePipe::MessagePipe( MsgPipeFactory *mom ) 
: factory( mom ) 

factory->lnitPipe( this ); 


MessagePipe::-MessagePipe() 
f®ctory->DeinitPipe( this ); 

FLAG MessagePipe::fOpenPipe() 

return factory->fOpenPipe( this ); 
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/include <os2.h> 
/endif 
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/include <ctype.h> 

/include <Objects.HPP> 

//***.***.*****.***.***„ # „ OMt 

********************** 

// 

// TFlag members. 

// 




TFlag::TFlag() 

: TNull( TRUE ) 

r ^ ' 




{> 


i tjuau riag ) 
value( (flag 1= FALS] 
TNull( FALSE ) 


), 


TFlag 

{ 


TFlag() 


/ifdef DEBUG 
fSetNull(); 

value « UNINIT DATA; 
/endif ~ 


//.*****.**** 0 * 0M04 ^ m ^ 

// 

// TTimestamp members. 






** 


40 


45 


const UINT TTimestamp::TSStringLen - 27 ; 

TTimestamp::TTimestamp() 

: TNull( TRUE ) 

/ifdef DEBUG 

Minis.*** UIIlNIT h D ATA- y * HOUr " Minute - S.=ond - 
/endif “ ' 


50 


55 


TTimestamp::TTimestamp( 

USHORT ms ) 

: Year( yr ), 

Month( mo ), 

Day( dy ), 

Hour( hr ), 

Minute( mn ), 


USHORT yr, UCHAR mo, 
UCH;.H hr, UCHAR mn. 


UCHAR dy, 
UCHAR sc. 
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Second( sc ), 

Millisec( ms ), 

TNull( FALSE ) 

{> 

TTimestamp::-TTimestamp() 

{ 

/ifdef OEBUG 
fSetNull(); 

Year « Month * Day « Hour * Minute ■ Second « 
Millisec ■ » UNINIT_DATA; 

#endif 

> 

FLAG TTimestamp::fValidate() const 

< 

if (fIsNull()) return FALSE; 

// Check year. 

if (!Year J1 Year > 9999) return FALSE; 

// Check month and day. 
if (iDay) return FALSE; 
switch (Month) { 
case l: 

if (Day > 31) return FALSE; 
break; 
case 2: 

if (Year % 4 -« o && Year \ 100 !■ 0) 

Check for a leapyear. 

if (Day > 29) return FALSE; 
else 

if (Day > 28) return FALSE; 
break; 
case 3: 

if (Day > 31) return FALSE; 
break; 
case 4: 

if (Day > 30) return FALSE; 
break; 
case 5: 

if (Day > 31) return FALSE; 
break; 
case 6: 

if (Day > 30) return FALSE; 
break; 
case 7: 

if (Day > 31) return FALSE; 
break; 
case 8: 

if (Day > 31) return FALSE; 
break; 
case 9: 

if (Day > 30) return FALSE; 
break; 
case 10: 


// 
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if (Day > 31 ) return FALSE; 
break; 
case li: 

if (Day > 30) return FALSE; 
break; 
case 12: 


) 


if (Day > 31) 
break; 
default: 

return FALSE; 


// Check hours. 

if (Hour > 23) { 

if (Hour > 24 
return FALSE; 

> 


I I 
I I 


return FALSE; 


Minute J J Second 


Millisec) 


// Check minutes, 
if (Minute > 59 
return FALSE; 


seconds and milliseconds, 
i i Second >59 j [ Millisec > 999 ) 


return TRUE; 

> 


void TTimestamp::ForceValidate() 

setNotNull(); 

Year « Month = Day ■ i; 

Hour » Minute « Second « Millisec ■ 0; 


FLAG TTimestamp::fIsValidTSString( 

if ( isdigit( ts[0] ) 

** isdigit( ts[l] ) 

44 isdigit( ts[2] ) 

44 isdigit( ts[3] ) 

44 ts(4] ■■ '-' 

44 isdigit( ts(5] ) 

44 isdigit( ts(6] ) 

44 ts(7J « 

44 isdigit( ts(8) ) 

44 isdigit( ts[9] ) 

44 ts(10] — 

44 isdigit( ts[ii] ) 

44 isdigit( ts[l2) ) 

44 ts(13) — • 

44 isdigit( ts(i4] ) 

44 isdigit( ts(i5) ) 

44 ts(16] -« • 

44 isdigit( ts(i7] ) 

44 isdigit( ts(i8] ) 

44 ts[19] — 

44 isdigit( ts(20] ) 

44 isdigit( ts[21] ) 

44 isdigit( ts(22] ) 


STRING ts ) 

// Check Year. 

// Check Month. 

// Check Day. 

// Check Hour. 

// Check Minute. 
// Check Second. 
// Check Millisec. 
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&& isdigit( ts[23] ) 
isdigit( ts[24] ) 

&6 isdigit( ts[25] ) 

&& ts(26] «« ' \xO') 
return TRUE; 
else return FALSE; 

> 

TTimestamp& TTimestamp::Assign( const TTimestamp &ts ) 

if (Its) { 
fSetNull(); 

> 

else { 

setNotNull() ; 

Year * ts.Year; 

Month * ts.Month; 

Day « ts.Day; 

Hour = ts.Hour; 

Minute = ts.Minute; 

Second <= ts. Second; 

Millisec = ts.Millisec; 

) 

return (*this); 


TTimestampt TTimestamp::Assign( USHORT vr. 
UCHAR dy, 

UCHAR hr, 

sc, USHORT ms ) 

{ 

setNotNull(); 


UCHAR mo, 

UCHAR mn, UCHAR 


Year = yr; 
Month = mo; 

Day « dy; 

Hour ■ hr; 
Minute * mn; 
Second • sc; 
Millisec “ ms; 


return (*this); 

} 


TTimestampi TTimestamp::Assign( STRING ts, FLAG isnull ) 

unsigned num; 

if (isnull) { 
fSetNull(); 
return *this; 


setNotNull(); 
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ASSERT( fIsValidTSString 


( ts ) ) ; 


/* Convert year */ 


nun 
nun + 
nun + 
nun + 
Year 


'O' ) 
' 0 ') 


(ts[0) - 
(ts[l] - 
(ts[2] - 
(ts[3] - . 

USHORT( nun ) 
Convert nonth */ 
nun * (ts[5] - fo') 

nun +» (ts(6) - 'o') 


' 0 ') 
' 0 ') 


1000 ; 

100 ; 

10 ; 


10 ; 


/* 


/* 


) 


/* 


/* 


Month » UCHAR( nun 
Convert day */ 
nun « (ts(8 ] - '0') 

nun +« (ts[9) - 'o') 

Day - UCHAR( nun ); 
Convert hour */ 
nun - (ts[li] - 'Q') 
nun +» (ts[i2] - '0') 
Hour « UCHAR( nun ); 
Convert minute */ 
nun « (ts[14} - '0') 
nun +* (ts[15] - '0') 
Minute - UCHAR( nun ) 
Convert second */ 
nun « (ts(17J - 'o') 
nun +•= (ts [18 - '0') 

Second - UCHAR( nun ) 
Convert nillisec */ 
nun ■ (ts[20] - 'o') 

nun +*= (ts(21J - '0') 
nun ♦« (ts(22] - '0'); 
Millisec e USHORT( nun ); 

return *this; 


10 ; 


10 ; 


10 ; 


10 ; 


100 ; 

10 ; 


40 


45 


50 


55 


/ifdef _OS2 

TTmestanpt TTinestanp:: Assign( const DATETIME fcDate ) 
setNotNull(); 

Year » Date.year; 

Month ■ Dat month; 

Day - Date, y; 

Hour ■ Date.nours; 

Minute •* Date.minutes; 

Second « Date.seconds; 

Millisec - Date.hundredths * io; 

return (*this); 

/endif // _OS2 

STRING TTimestanp::ToSTRING( char *ts ) const 
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{ 

unsigned nun; 

/* Convert year */ 
num = year; 

ts[0] ■ (numllOOOO) / 1000 + 'O'; 
ts[l] - (numllOOO) / 100 + 'O'; 
ts[2] ■ (numllOO) / 10 + 'O'; 
ts[3] ■ (nun % 10) + 'O'; 
ts(4] - 

/* Convert month */ 
num ■ Month; 

ts[5] ■ (numllOO) / 10 + 'O'; 
ts[6] = (num % 10) + 'O'; 
ts [ 7 ] - '-'; 

/* Convert day */ 
num « Day; 

ts(8] * (num%100) / 10 + 'O'; 
ts[9 j * (num % 10) + 'O'; 
ts(10) « 

/* Convert hour */ 
num ■ Hour; 

ts(ll) ■ (num%100) / 10 + 'O'; 
ts[12] « (num t 10) + 'O'; 
tsf13] - 

/+ Convert minute */ 
num = Minute; 

ts[14] * (numllOO) / io + 'O'; 
ts[15] = (num I 10) + 'O'; 
ts(16) - 

/* Convert second */ 
num * Second; 

ts[17] = (numllOO) / 10 + 'O'; 
ts[18j ■ (num % 10) + 'O'; 
tsf19] « 

f* Convert millisec */ 
num « Millisec; 

ts(20] * (numllOOO) / 100 + 'O'; 
ts(21] = (numllOO) / 10 ♦ 'O'; 
ts[22] = (num I 10) + 'O'; 
ts[23 ] ■ 'O'; 
ts[24] » 'O'; 
ts[25] « 'O'; 

ts[26] « '\xO'; 

return ts; 

} 

FLAG TTimestamp;: operator > ( const TTimestamp its ) 

const 

{ 

useAsValue(); 

if (Year > ts.Year) return TRUE; 
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else if (Year ■« ts.Year) { 

else M if t rMonJh‘ MOn J h) return TR UE; 
exse if (Month ■■ ts.Month) { 

* ts * Da y) return TRUE; 
else if (Day ■« ts.Day) { 

if (Hour > ts.Hour) return TRUE* 
else if (Hour -- ts.Hour) (' 

if (Minute > ts.Minute) return TRUE* 
else u (Mmjte „ ts-Mw"" T ' 

_i ^ econd > ts.Second) return TRUE• 
else if (Second -« ts.secondf { ' 

TRUE; lf (Millisec > ts.Millisec) Return 


> 


else return FALSE; 


> . 


> 

> 

return FALSE; 


c“« TTi " eSta " P:: ° Perator ( »"3t TTimestanp It. ) 


return (*this > ts || *this •« 


ts); 


FLAG TTimestanpoperator ■= t mnct . 

const * ' const TTimestamp tts ) 


{ 


> 


useAsValue(); 

if (Year *= ts.Year && 

Month ■« ts.Month && 

Day ** ts.Day && 

Hour ts.Hour && 
Minute == ts.Minute && 
Second «« ts.Second 
Millisec «« ts.Millisec) 
return TRUE; 

> 

else { 

return FALSE; 

> 


//Date and time add function. 

SrSyT 4 TT ^ mestajn P: :AddToDate( U1NT yr, UINT non, 

UINT sec, UINT ms ) UINT hr ' UINT “in, 

{ 

if (iflsNull()) { 
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ms +■= Millisec; 
sec +* Second; 
min +« Minute; 
hr += Hour; 
day +■ Day; 
mon +« Month; 
yr +* Year; 


// Adjust and carry ms. 

while (ms > usMaxMillisec()) { 

ms — usMaxMillisec() + l; 
sec++; 

> 

// Adjust and carry sec. 

while (sec > usMaxSecond()) ( 

sec -= usMaxSecond() + i; 
min++; 

} 

// Adjust and carry min. 

while (min > usMaxMinute()) { 

min -= usMaxMinute() + i; 
hr++; 

} 

// Adjust and carry hr. 

while (hr > usMaxHourO) { 
hr -■ usMaxHourO + i; 
day++; 

) 

and A yr)* St ^ Carry “ on (day ad 2 ust is dependent on mon 

while (mon > usMaxMonth()) ( 

mon -= usMaxMonth(); 
yr++; 


11 wh?if d ^ St and S arry day now that y r and mon is knovr 
while (day > usMaxDay( yr, mon )) { 

day -= usMaxOay( yr, mon ); 
mon++; 

if (mon > usMaxMonth()) { 

mon -« usMaxMonth(); 
yr++; 


} 


} 


// 


} 


Copy new values to members. 

Assign( yr, mon, day, hr, min, 

CHECK( fValidate() ); 
return *this; 


sec, ms ); 


// static member. 

USHORT TTimestamp::usMaxOay( USHORT year, USHORT month ) 
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switch (month) { 
case 1: 

return 31; 


// Jan. 
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// 

// 

} 


case 2; // Fe b. 

return fIsLeapYear( year ) ? 29 


case 3: 

return 31; 

case 4: 

return 30; 

case 5: 

return 31; 

case 6: 

return 30; 

case 7: 

return 31; 

case 8: 

return 31; 

case 9: 

return 30; 

case 10: 

return 31; 

case 11: 

return 30; 

case 12: 

return 31; 

default: 

BOILERPLATE; 


// Mar. 
// Apr. 
// May. 
// Jun. 
// Jul. 
// Aug. 
// Sep. 
// Oct. 
// Nov. 
// Dec. 


28 ; 


.. 

// 

// TStream stream operators. 

TStreami operator « ( TStream &buf, const TFlag fcflag ) 

if (!flag) return buf « FLAG( TRUE )• 

} else return buf « FLAG( FALSE ) « flag.value; 

TStream* operator » ( TStream ibuf, TFlag tflag ) 
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{ 

buf >> *(TNull*)fiflag; 
if (flag.flsNull() == FALSE) 
buf >> flag.value; 
return buf; 


TStreamfi operator « ( TStream fibuf, const TTimestamp its 
{ 

if (Its) return buf << FLAG( TRUE ); 

else { 

return buf « FLAG( FALSE ) 

<< ts.Year 
<< ts.Month 
<< ts.Oay 
<< ts.Hour 
<< ts.Minute 
<< ts.Second 
<< ts.Millisec; 

i 9 


operator >> ( TStream fibuf, TTimestamp fits ) 

buf » *(TNull*)fits; 

if (!ts) { 

return buf; 

> 

else { 

return buf » ts.Year 
>> ts.Month 
>> ts.Day 
>> ts.Hour 
>> ts.Minute 
>> ts.Second 
>> ts.Millisec; 

> 

} 


//*********************** 
********************** 




// 

// iostream friend function members. 


° streaBl4 operator « ( ostream fios, const TFlag (flag ) 

if (Iflag) return os « HULL TOK; 
else return os « (STRING)flag; 


/******************** 

istreamfi operator << ( istream fiis, TFlag fiflag ) 
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char ch, buffer[12); 


is >> vs; 
whitespace. 


// Extract leading 


for (int i ■ 0; i < sizeof( buffer ); i++) { 

is » buffer[i]; 

if (!isalpha( buffer[i] )) break; 

) 

if (i •« sizeof( buffer ) ASSERT( FALSE ); 
buffer(i] ■ '\x0'; 

if (strcmp( buffer, NULL TOK) — 0) { 

fSetNull(); 

> 

else if (strcmp( buffer, TRUE_TOK) -= 0) { 

Assign( TRUE ); 

} 

else if (strcmp( buffer, FALSE TOK) — 0) { 

Assign( FALSE ); 

) 

else ASSERT( FALSE ); 


return is; 

> 


/ 


ostream& operator << 

) 

{ 


ostream &os, const TTimestamp Sts 


char tsstringfTTimestamp::TSStringLen]; 

if (!ts) return os << "NULL"; 

else return os « ts.ToSTRING( tsstring ); 


INCL^NOPMAPI // no PM in this program 

/define INCL DOS * 

///define INCL BSE 
///define INCL~DOSSEMAPHORES 
/include <os2.h> 

/include <usertype.h> 

/include <TModem.HPP> 

TModem::TModem( TPort 4_port ) 

: port( _port ) 

{> 

TModem: :RC TModem::rcSendCommand( STRING, ULONG timeout ) 
NOTIMPLEMENTED; 

> 
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STRING TModem::strSendCommand( STRING str, ULONG timeout 
{ 

port.fWritePort( str ); 
port.fPutChar( '\r' ); 

STRING result » strGetString( timeout ); 
if (strcmp( str, result ) -■ 0) { 

return strGetString( timeout ); 

} 

else { 

return result; 

> 


STRING TModem::strGetString( ULONG timeout ) 
UINT i «= 0; 

last_result[0] * '\x0'; 


// Eat Leading CR/NL. 

while (!port. fGetChar ( last__result(i] ) 

!J last_result[i] »« '\r' 

J! last_result[i] »■ '\n') {> 

,, 11 (already got 1 char ok) 

// Grab text until a CR/NL. 

while (port.fGetChar( last result[i] ) 

44 last_result[i)"”!« '\n' 

44 last_result[i) !- '\r' 

44 i <= sizeof( last result )) / 

i++; 

> 


last_result[i) = '\x0'; // Hull terminate 

buffer. 

return last result; 

} 


/include <TObject.HPP> 


//**************************** **************** a******^^ 

// 

// TObject members. 

// 

TObject::-TObject() 

{} 

//*M*00*.******«*******«*********** 0 *.*„*„„„„ t 


// 

// TNull members. 

// 

TNull::TNull( FLAG is_null ) 
: isnull( is_null“) 
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FLAG TNull::fSetNull() 

{ 

isnull = TRUE; 
return TRUE; 


/define INCL_NOPMAPI // no PM in this program 

/define INCL DOS 

/define INCL~BSE 

/define INCL“DOSSEMAPHORES 

/define INCLJ50SNMPIPES 

/include <os2.h> 

/include <usertype.h> 

/include "TPacket.HPP" 

TPacket::TPacket( TPorti p ) 

: Port( p ), 

text_length( 0 ), 
state( TRANS NULL ) 

{> 

TPacket::TRANS STATE TPacket::rGetPacket() 

{ 

enq_count - 0; 
nak”count - 0; 
text_length " 0 ; 

if (state ! = TRANS_NULL) return TRANS_NULL; 

// Enquiry Loop. 

while (fSendENQO) 

( 

if ((state » rReceivePacket()) »« TRANS_NAK) 
while (fSendNAKO) 

if ((state * rReceivePacket()) ■» TRANS ACK) 

( 

fSendACK(); 
return state; 

} 

} 

else if (state ■■ TRANS ACK) 

{ 

fSendACK(); 
return state; 

> 

} 

fSendEOTO; 
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TPacket: :TRANS_STATE TPacket: :rReceivePacket() 

char ch; 
int i«0,j; 

// Get STX. 

if (1 Port.fGetChar( ch )) 
return TRANS ETO; 

// packet_text[i++] = ch; 
if (ch !» STX) 

return TRANS_NAX; 

// Get Length. 

if (!Port.fGetchar( ch )) 
return TRANS_NAK; 

// packet_text[i-f-fj ■ ch; 

text_length - (USHORT)ch; 

if (!Port.fGetChar( ch )) 
return TRANS_NAK; 

// packet_text(i++J ■ ch; 

text_length = (USHORT)(ch « 8 ) + text_length 

if (text_length > MAX TEXT LEN) 
return TRANSNAK; ~ 

// Get Text. 

for (j-o ; j < text_length; j++ ) 

if ( Port.fGetCharf ch )) 
packet_text( j ] « ch; 

else 

return ( TRANS_NAK ); 


// Get ETX. 

if ( Port.fGetchar( ch )) 

{ 

if ( ch «« ETX ) 

r 

// packet_text( i++ ] . C h; 

else 

return ( TRANS NAK ); 

) “ 
else 

{ 
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return ( TRANS_NAK ); 

> 

// Get LRC. 

if (JPort.fGetChar( ch )) 
return TRANS_NAK; 

// packet_text[ i++)«ch; 

return TRANS ACK; 

> 

UINT TPacket::cbCopyText( PVOID ptr, UINT len ) 

len * len < text_length ? len : text length; 
memcpy( ptr, packet_text, len ); 
return len; 


FLAG TPacket::fSendENQ() 

{ 

char enq = ENQ; 
enq_count++; 

if (enq_count > MAX_ENQ) return FALSE; 

Port.FlushlnputBuffer(); 

return Port.fWritePort( 4enq, l ); 


FLAG TPacket::fSendACK() 

char ack - ACK; 

Port.FlushlnputBuffer(); 

return Port.fWritePort( 4ack, 1 ); 


FLAG TPacket::fSendNAK() 

{ 

char nak « NAK; 
nak_count-f+; 

if Tnak^count > MAX_NAK) return FALSE; 

Port.FlushlnputBuffer(); 

return Port.fWritePort( 4nak, l ); 


FLAG TPacket::fSendEOT() 

{ 

char eot ■ EOT; 

return Port.fWritePort( 4eot, 1 ); 


/define INCL NOPMAPI 
/define INCL~DOS 


// no PM in this program 
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/define INCL BSE 
/define INCL _ DOSSEMAPHORES 
/define INCL~DOSNMPIPES 
/define INCL_DOSDEVIOCTL 
/include <os2.h> 

/define _THREADS // This implemetation is 

multi-threaded. 

/include <process.h> 

/include <string.h> 

/include <stdlib.h> 

/include "TPort.HPP M 

TPort::TPort() 

: manage_thread( -l ) , 
log flag( FALSE ) 

<> 

TPort::-TPort() 

{ 

while (manage_thread 1* -1) { 

KillManageThread(); 

DosSleep( 1000 ); // wait 1 second. 


FLAG TPort::fOpenPort( const ComSettings tsettings ) 

LIHECONTROL lctl; 

DCBINFO deb; 

ULONG ulAction; 

ULONG ulPio, ulDio; 

ULONG cbTrans; 

// Open the port. 

rc « DosOpen( settings.port name, fchPort, tulAction, 

0, 0, OPEN_ACTION_OPEN_IF EXISTS, 

OPEN_FLAGS_WRITE_THROUGH \ 

OPEN_ACCESS_READWRITE | OPEN_SHARE DENYREAOWRITE, NULL ) ; 
if (rc) return FALSE; 

// Set the line speed. 

ulPio « sizeof( settings.bps ); 

rc • DosDevIOCtl( hPort, IOCTL ASYNC, 

AS YN C_S ETBAUDRATE, (PVOID)&settings.bps, 

ulPio, iulPio, NULL, 0, NULL ); 

if (rc) ( 

DosClose( hPort ); 
return FALSE; 

) 

// Set the line characteristics. 

Ictl.bDataBits ■ settings.data bits; 
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Ictl.bParity « (BYTE)settings.parity; 
Ictl.bStopBits - (BYTE)settings.stop bits; 
ulPio - sizeof lctl; “ 

rc « DosOevIOCtl( hPort, IOCTL ASYNC, 
ASYNC_SETLINECTRL, 41ctl, ulPio, &ulPio, NULL, 
if (rc) { 

DosClose( hPort ); 
return FALSE; 

} 


0, NULL ); 


// Set the flow control. 
ulDio - sizeof deb; 

rc - DosOevIOCtl( hPort, IOCTL ASYNC, 
ASYNC_GETDCBINFO, NULL, 0, NULL, Idcb, ulDio 
if (rc) { 

DosClose( hPort ); 
return FALSE; 


4ulDio ); 


/ 

* 




******* 


deb.usReadTimeout * 100; 


deb.fbCtlHndShake « MODE CTS HANDSHAKE; 
00001000 ” “ 


// flagsl « 


deb.fbFlowReplace 4= 0x30; 

00770000 

deb.fbFlowReplace MODE RTS HANDSHAKE; 
10770000 ~ “ 


// flags2 *= 
// flags2 « 


deb.fbTineout 4= 0xF8; 

77777000 

deb.fbTimeout J- MODE WAIT READ TIMEOUT; 
77777100 — — _ 


// flags3 ■ 
// flags3 * 


*********************^ 

deb. usReadTimeout «= 300; 

deb.fbCtlHndShake - MODE_CTS_HANDSHAKE; 
deb.fbFlowReplace « MODE_RTS — HANDSHAKE; 
deb.fbTimeout » MODE NO WRITE TIMEOUT ! 
MODE_WAIT READ TIMEOUT;” 


rc ■ DosDevIOCtl( hPort, IOCTL ASYNC, 
ASYNC_SETDCBINFO, 4dcb, ulPio, 4uXPio, NULL, 
if (rc) { 

DosClose( hPort ); 
return FALSE; 


0 , 


NULL ); 


fRaiseDTRO > 
return TRUE; 


FLAG TPort::fClosePort () 
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rc - Doselose( hPort ); 
if (rc) return FALSE; 
else return TRUE; 


void TPort::FlushlnputBuffer() 


( 

BYTE cmd; 
by API. 

ULONG len; 
by API. 


// Scratch, Needed 
// Scratch, Needed 


DPV r FTT%S?Mm e ^ I0Ctl{ hPort ' 10CTL GENERAL, 
DEV_FLUSHINPUT, &cmd, sizeof( cmd ), Hen, 

&cmd, sizeof( cmd j, 4len ); 


DosSleep(10); 
Device Driver 

resetting 

buffer.Flush() 

} 


// Timing Kludge - Give the 
// time to flush buffer before 
// semaphore stuff. 


void TPort::FlushOutputBufferf) 


< 

BYTE cmd; 
by API. 

ULONG len; 
by API. 


// Scratch, Needed 
// Scratch, Needed 


DEV r FLU«;Sm S iSof V Ti 0Ctlf hPort ' ™CTL GENERAL, 
_FLUSHOUTPUT, &cmd, sizeof( cmd ), tlen, 

j 4 cmd, sizeof( cmd ), ilen ); 

FLAG TPort::fReadPort( PVOID buf, UINT &len ) 

for (int i « 0; i < len; i++) / 

if (buffer.flsEmpty()) / 

len • i; 
return TRUE; 

} 

} else buffer.fGetCharf ((char*)buf)(ij ); 
return TRUE; 

) 

FLAG TPort::fWritePort( PVOID buf, UINT len ) 
ULONG cbWritten; 

It "rc* S r«turn ffiSj **'' le "' *«"««« >» 
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else return TRUE; 

} 

FLAG TPort::fDropDTR() 

5 { 

ULONG ulPio, ulDio; 

MODEMSTATUS ns; 

ULONG com_err; 

10 ms.fbModemOn - 0; 

ms.fbModemOff « DTR_OFF; 
ulPio - sizeof ms; 
ulDio « sizeof com_err; 
rc « DosDevXOCtl( hPort, IOCTL_ASYNC, 
ASYNC_SETMODEMCTRL, A ms, ulPio, AulPio, Acorn err, ulDio. 
AulDio ); - 

if (rc) return FALSE;. 
else return TRUE; 

> 

20 

FLAG TPort::fRaiseOTR() 

{ 

ULONG ulPio, ulDio; 

MODEMSTATUS ms; 

25 ULONG com_err; 

ms.fbModemOn ■ DTR_ON; 
ms.fbModemOff * OxFF; 
ulPio - sizeof ms; 

30 ulDio « sizeof com_err; 

rc - DosDevIOCtl ( hPort, IOCTL_ASYNC, 

ASYNC_SETMODEMCTRL, &ms, ulPio, fculPio, Acorn err, ulDio, 
AulDio ); “ 

if (rc) return FALSE; 

35 else return TRUE; 

} 

void _Optlink ManageThread( PVOID ); // used internally 

by fStartManageThread(). 

40 void _Optlink ManageThread( PVOID ptr ) 

((TPort*)ptr)->ManagePort(); 

> 

45 FLAG TPort: :fStartManageThread() 

( 

fManThread - TRUE; 

manage thread = beginthread( ManageThread, 8192, 
(PVOID)this ); 

50 if (manage_thread •- -l) return FALSE; 

else return TRUE; 

} 

void TPort: :ManagePort() 

55 ( 
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char read_buf[32]; 

ULONG cbRead; 

while (TRUE) { 

5 rc - DosRead( hPort, read_buf, sizeof read_buf, 

ScbRead ); 

if (rc) { 

// handle error here... 

> 

10 else if (!fManThread) break; 

for (int i « 0; i < cbRead; i++) { 

if (log_flag) log.fPostChar( read_buf[i) ); 
buffer.fPutChar( read_buf[i] ); 

> 

15 buffer.SignalRelease(); 

} 

// Signal threads exit, 
manage thread = -1; 

20 } ” 

FLAG TPort:ifStartCommandThread( TTHREAD CommandThread, 
PVOID data ) 

{ 

25 fCmdThread = TRUE; 

command thread * beginthread( CommandThread, 8192, 
data ); “ 

if (command_thread «« -1) return FALSE; 
else return TRUE; 

30 } 

/include <TStreara.HPP> 

/include <debug.h> 

35 

/include <string.h> 

//********************************************«««****** 


40 // 

// TStream members. 

// 

TStream::TStream( UINT buf_size ) 

: buf_len( buf_size ), 

45 buffer( new BYTE(buf_size] ), 

iptr( buffer ), ” 

xptr( buffer ) 

{ 

/ifdef DEBUG 

50 memset( buffer, UNDEF_DATA, buf_len ); 

/endif 

> 

TStream::-TStream() 

55 { 
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> 


delete buffer; 


void TStrean::Reset() 


{ 


iptr « xptr = buffer; 


TStrean* TStrean::operator « ( const FLAG flag ) 

♦(FLAG*)iptr « flag; 

return inclnserter( sizeoff flag ) ); 

TStrean* TStrean: .'operator << ( const USHORT nun ) 


} 


*(USHORT*)iptr « nun; 

return inclnserter( sizeof( nun ) ); 


TStrean* TStrean::operator << ( const ULONG nun ) 

*(ULONG*)iptr « nun; 

return inclnserter( sizeof( nun ) ); 

TStrean* TStrean::operator << ( const char *str ) 
strcpy( iptr, str ); 

return inclnserter( strlen( str ) + l ); 

TStrean* TStrean::Put( const PVOXD data, UINT size 

nencpy( iptr, data, size ); 
return inclnserter( size ): 

} 

TStreani TStrean::operator >> ( FLAG &flag ) 

flag - *(FLAG*)xptr; 

return incExtractor( sizeof( flag ) ); 

TStrean* TStrean::operator » ( USHORT &nun ) 


) 


nun - *(USHORT*)xptr; 

return incExtractor( sizeof( nun ); 


TStrean* TStrean::operator » ( ULONG &nun ) 

nun - *(ULONG*)xptr; 

return incExtractor( sizeoff nun ) ); 
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TStreani TStrean::operator >> ( char *str ) 
strcpy( str, xptr ); 

return incExtractor ( strlen ( str ) -*■ 1 ) ; 


TStreami TStrean::Get( PVOID data, UINT size ) 

nencpy( data, xptr, size ); 
return incExtractor( size >; 


TStreami. TStrean:: incExtractor ( UINT n ) 
xptr ♦- n; 

ASSERT( xptr <= iptr ); 
return *this; 


TStreamfi TStream::inclnserter( UINT n ) 
iptr ♦- n; 

ASSERT( iptr <» buffer + buf len ); 
return *this; 


:!!!!!!*******************************************•****** 

****«*********^^^ 

* 

* Copyright (C) 1995 Absolute Software Corporation 




NAME DBServer WINDOWCOMPAT 

IMPORTS CTIMS.fGenerateSerCTID 

CTIMS.fXlatSerCTID 
CTIMS.fXlatCliCTID 
CTIMS.fGenerateCTCODE 
CTIMS.fConvertstrToCTCODE 
CTIMS.fConvertCTCODEToStr 

.\TObject.obj: \ 

f:\Server\TObject.CPP \ 

DBServer.MAX 

.\objects.obj: \ 

f:\Server\objects.cpp \ 

DBServer.MAK 


.\MessagePipe.obj: \ 

f:\Server\MessagePipe.CPP \ 
DBServer.MAK 
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. \CTMessage.obj: \ 

f:\Server\CTMessage.CPP \ 
DBServer.MAK 

. \ctims.obj: \ 

f:\Server\ctims.cpp \ 
DBServer.MAK 


. \DBServer.obj: \ 

f:\Server\DBServer.C \ 


{f:\Server;F:\Server\INCLUDE;E:\SQLLIB;E: 
0S2H;E:\Tools\IBMCPP\INCLUDE;> DBServer.H 
DBServer.MAK 


\TOOLKT21\CPLUS\ 
\ 


.\TSTREAM.obj: \ 

f:\Server\TSTREAM.CPP \ 

DBServer. MAK 

.\TPacket.obj: \ 

f:\Server\TPacket.CPP \ 

{ 5 : i!* r r er;M: ^ SRC \ Include;M: \CT\Include ;$(INCLUDE) ;>TPack 
•HPP \ 

Server.MAK 


.\TModem.obj: \ 

f:\Server\TModem.CPP \ 

Server.MAK 

.\CT_Log.obji \ 

f:\Server\CT_Log.CPP \ 

i f ^ e f Ver?M: \« c \ Inc lude;M: \CT\Include;$(INCLUDE) ;)CT Lo 
g .hpp \ — 

Server.MAK 


.\CT_Buffer.obj: \ 

f:\Server\CT_Buffer.CPP \ 

i5 : ^ S u«B e f ;M: ^ SRC ^ InClude;M: ^ CT ^ Include » ^ (INCLUDE) ; >CT Bu 
tier. hpp \ - 

^\Server ;M; \SRC\Include;M: \CT\Include;$ (INCLUDE);}serve 
r«n \ 

Server.MAK 


.\Server.obj: \ 

f:\Server\Server.C \ 

{f: \Server;M: \SRC\Include;M: \CT\Include;$ (INCLUDE) ;>CT Tr 
ans*H \ — 

{f: \Server;M: \SRC\lnclude;M: \CT\Include;$ (INCLUDE) ;)TPack 
ct•HPP \ 
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Server.MAK 


.\CT_Trans.obj : \ 

f:\Server\CT_Trans.C \ 

{f: \Server ;M: \SRC\Include;M: \CT\Include'; $ (INCLUDE) ; )CT Tr 
ans•H \ • 


{f:\Server;M:\SRC\lnclude;M:\CT\Include;$(INCLUDE);}TPack 
et.HPP \ 

Server.MAK 


.\TPort.obj: \ 

f:\Server\TPort.CPP \ 

{f:\Server;M:\SRC\Include;M:\CT\Include;$(INCLUDE);}TPort 
* HPP \ 

(f:\Server;M:\SRC\Include;M:\CT\Include;$(INCLUDE);)CT Bu 
ffer.HPP \ — 

(f:\Server;M:\SRC\Include;M:\CT\Include;$(INCLUDE);}CT Lo 
g .HPP \ — 

(f:\Ser ver ;M : \SRC\Include;M:\CT\Include;$(INCLUDE) ;)serve 
r. n ^ 

Server.MAK 


/ifndef CT_TRANS_H 
/define CT~TRANS_H 

///include <DB_Objects.HPP> 
/include <MessagePipe.HPP> 

/include "TPacket.HPP" 


void SntlConnect( TPort fcPort, MessagePipe (Pipe, 
TConnectlnfo *cnct_info ); 

void SntlDisconnect( TPort &Port, TConnectlnfo 
tConnectlnfo ); 

void SendDatePacket( TPort 4Port, const SNTL_DATE tdate 

/ / 

void AddDays( SNTL_DATE *next_call, int days ); 

FLAG fGetDateTine( PDATETIME ); 

/endif 

/ifndef MESSAGE_H 
/define MESSAGE H 


/*****•*•**• 
Message.H 
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ServerShell* 11 Valid Bessa 9 es used by the Server and 


******************** v 




// Define standard types, 
/include <os2def.h> 


/include <time.h> 


// Definition for the Sentinel date packet 
struct CT_DATE { F 

BYTE year; 

BYTE month; 

BYTE day; 

BYTE hour; 

BYTE minute; 


struct 1 CT t SN n { f ° r the Sentinel serial number packet. 

USHORT - sn[ 3 ]; 

USHORT cksum; 

CT DATE date; 

>; “ 

/define CND NUM_MAXLEN 20 

/define CND~NAME_MAXLEN 20 

struct CALLERID_*.NFO { 

BYTE month; “ 

BYTE day; 

BYTE hour; 

BYTE minute; 

CHAR number[CND NUM KAXLEN]; 

CHAR name[CND NAMEMAXLEN]; 


enum TRANS_STATE { 

TRANS_OK ■ 0x00, 

TRANS~BAD CND - 0x01, 
TRANS~BAD~SN « 0x02, 
TRANS BAD~DATE - 0x04 
}; - 


struct CT_Transaction { 
DATETIME start_time; 
CALLERID_INFO end; 
CT_SN sn; 

TRANSSTATE state; 
DATETIME end time; 


enum CT_SN_QUERY { 
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CT _ SN _ 0K - 0 , 
CT SN_REDFLAG - 1, 
CT~SN UNKNOWN * 2 


/define CT_BUFFER_LEN 256 // Allowable 

length of modem communications for a cycle. 

./define CT_GUARD_CHAR ' 1' 

/* Definitions for stripped CompuTrace messages. 

******************/ 

/define MAX_PHONE_NUM_LEN 16 // Max length of 

phone number string. “ 

/define CT_SERIAL_NUM_LEN sizeof( CT_SN ) // 

Length of serial number packet sent by the modem, 
/define MAX_ERROR_STR_LEN 32 //Max length of 

an error string. 

enum CTMSG_TYPE { 

CTMSG_UNDEF ■ 0, 

CTMSG CONNECT, 

CTMSG~S ERIAL NUM, 

CTMSG_ERROR_LOG, 

CTMSG DISCONNECT 

>; 


struct CT_ConnectMsg { 
time_t”connect_time; 
char phone_numTMAX_PHONE_NUM_LEN] ; 


struct CT_SerialNumMsg { 
CT_SN serial num; 

>; 


struct CT_ErrorLogMsg { 

char error_str (MAX_ERROR_STR_LEN] ; 


struct CT_DisconnectMsg { 
time_t disconnect_time; 
Char log[CT BUFFER LEN]; 

>; 


struct CTMessage { 

CTMSG_TYPE type; 
union { 

CT_ConnectMsg Connect; 

CT_SerialNumMsg SerialNum; 
CT~ErrorLogMsg ErrorLog; 
CT_DisconnectMsg Disconnect; 
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); 


> Msg; 


/define MAX_CTMSG_S12E sizeof( CTMessage ) 
size of a stripped (CompuTrace) message. 


// Max 


/* Definitions for pipe messages. 
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The following prefixes are 


// Define all valid events, 
used: 

IJ For general messages 

»l.t.rto E Kr.nJ«i“ rV “' 0ri,in “ ,d "« 

«Ut.fto“-tr,nsr«io“ ent ° ri,i ~ trt "« 

to a tSra“ti“r F ° r scrver originated r.l.t.d 

to a transaction? F ° r CU * nt ° ri ’ inated ««»!« ™lat«d 

to=toto*«ructoto Ud intormatio " P la « e the propar 
enum EVENT TYPE { 

l ..”? d tol5“-Z;.,a. " Sarvar 

fatal error. '' 5€rver has had a non- 

fatal“error S *nrt AT ^i*i 11 Server has had a 

f CT SER ic? 2reciir. UnCOndltionally terminate. 
CT_SER_MSG__MESSAGE, / / Server h*c 

to be processed by the client. 


message 


cliSt(f?-stop'sending messages. U Sarvar r “Ju««ts tha 

ca^f-^; tinu . 6 . ndlng - 11 — tha 


// Server has had an 


c T_SER_ERROR, 
internal non-fatal error. 

int|5. S fT. F JIt L ; rror a„d win tar 'JJSST *“* *" 

strtoi“Mr^S;. d . " Sa ™ »a« a general 

.ll C Intotl”o't«r.i„.ta. // Sarvar ha. ragueeted 


// Client avknovledges 
// Client has had a non— 


CT_CLI^MSG_AWK. 
lest received message. 

CT_CLI_MSG_ERROR, 
fatal error. 

// CUant has had a 

®f5 or and unconditionally terminate. 

to 2-^ I - MSG ~;- SSAGE // Client has a message 

to be processed oy the server. 9 
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// Define message transfer template used to transfer a 
message through a pipe. 


struct CT MessageHead { 
ULONG Id; 
number. 

EVENT_TYPE type; 
above). 

BYTE len; 
message data. 

}; 


// The message id 
// The event type (see 
// The length the 


struct CT_MessageBuffer { 
CT_MessageHead header; 
char message[MAX_CTMSG_SIZE]; 


/define MAX_MSG_SIZE sizeof( CT MessageBuffer ) 

// Max size of a pipe message. ~ 

/endif // MESSAGE_H 

/ifndef PACKET_H 
/define PACKET_H 

// Ensure byte alignment enforced! 

/pragma pack( 1 ) //For C-Set++ 

/pragma option -al // p or bc-m- 

/* Packet Level Defines 


/define STX 
text. 

/define ETX 
text. 

/define EOT 
transmission. 

/define ENQ 
/define ACK 
Acknowledgement. 
/define NAX 
acknowledgement. 

/define MAXENQ 
number of ENQs. 
/define MAX NAX 
number of NAKs. 

/define MAX TEXT_LEN 
of a packets TEXT. 

Struct PXT_HEADER { 
BYTE stx; 

BYTE lsb_length; 


/ 


0X02 

// 

Start-of- 

0x03 

// 

End-of- 

0x04 

// 

End-of- 

0x05 

// 

Enguiry. 

0x06 

// 


0x15 

// 

Negative- 

3 

// 

Max 

2 

// 

Max 

256 

// 

Max size 
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BYTE msb_length; 


>; 


struct PKT_FOOTER < 
BYTE etx; 

BYTE lrc; 


/* Packet type definitions 


// Text Type IDs. 

/define CTID_TEXT_TYPE (WORD)0x0000 

Sentinel Subscription Number Packet. 

/define NONTEXT TYPE (WORD)0X0080 

Server Next Call Packet. 

struct SNTL_DATE ( 

BYTE year; 

BYTE month; 

BYTE day; 

BYTE hour; 

BYTE minute; 

>; 


struct CTID_TEXT { 

BYTE type; 

BYTE sub type; 

WORD sn(3]; 

SNTL_DATE now_date; 

} ! 

/define SNJTEXT CTID_TEXT 
should be changed to CTID TEXT). 

struct CTID_PACKET { 

PKT_HEADER header; 

CTID TEXT text; 

PKT_FOOTER footer; 

>; 

/define SN_PACKET CTID_PACKET 
should be changed to CTID_PACKET). 

struct NC_TEXT { 

WORD type; 

SNTL DATE next call date; 


// Old name (uses 


// Old name (uses 


struct NC_PACKET { 
PKT_HEADER header; 
NC TEXT text; 

PKT FOOTER footer; 


/pragma pack() 
/pragma option -a. 


// Back to default. 
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/endif 

/ifndef SERVER_H 
/define SERVER_H 

/define DEBUG 4 

/include <debug.h> 

/include <usertype.h> 

// 

// TConnectlnfo definition. 

// 

/define CND_NUM_MAXLEN 20 

/define CND_NAME_MAXLEN 20 

Struct CALLERID_INFO { 

BYTE month; 

BYTE day; 

BYTE hour; 

BYTE minute; 

CHAR number[CND_NUM MAXLEN); 
CHAR name(CND_NAME_MAXLEN]; 

} / 


struct TConnectlnfo { 

DATETIME start time, end time; 

CALLERID INFO end; 

>; 

// 

// End of TConnectlnfo 

// 

tendit 11 SERVER H 
/ifndef CT BUFFER_HPP 
/define CT~BUFFER_HPP 

/include "server.h N 

/define TRUE l 
/define FALSE 0 

/define CT_BUFFER_MAXLEN 256 
class CT_Buffer { 

char buffer[CT BUFFER MAXLEN1; 

UINT head, tail; 

HMTX hBufSem; 

HEV hReleaseGetSem; 

APIRET rc; 

UINT IncBufPtr( UINT ptr ) const 

{ return (++ptr >- CT_BUFFER_MAXLEN) ? o 

public: 
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CT_Buffer(); 

-CT__Buffer () ; 

void Flush(); 

® 00L fIsEa P t y() const { return head — lncBufPtr( tail 
BOOL fIsFull() const { return head -■ tail; > 

); j° id Si9nalRelease() { DosPostEventSem< hReleaseGetSen 

BOOL fPutChar( char ); 

BOOL fGetChar( chart ) ; 

}; 

/endif 

/ifndef CT_LOG_HPP 
/define CT~LOG_HPP 

/define TRUE 1 
/define FALSE 0 

class CT_Log { 

char *buffer; 

UINT index, buflen; 

public: 


CT_Log( UINT - 4096 ); 
-CT_Log(); 


}? 


void Flush() { index *0; } 

S*?}* COnst { return index — 0 ; } 

BOOL flsFull() const { return index >- buf_len; } 

BOOL fPostChar( char ); 

BOOL fDumpLog( const char * ); 


/endif 

/ifndef TCLIENT HPP 
/define TCLIENT~HPP 


class TClient { 

TConnectlnfo ConnectInfo; 

WORD ctid[3]; 

SNTL_DATE client_date; 
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public: 


} 


/endif // CLIENT_HPP 
/ifndef TPACKET_HPP 
/define TPACKET_HPP 

/include <os2def.h> 
/include "packet.h" 

/include <TPort.HPP> 


//' 


// Class TPacket - Encapsulates the reception of a packet 
for a port 

// 

// TPacket::TPacket( TPortfc Port ) Initializes internal 
state. 

// Arguments: 

II TPortfc Port • the port to receive the packet 

frost. 

// 

// TRANS_STATE TPacket::rGetPacket() 

// Description: 

protocol Attefflpts to rec ®i v ® a packet from Port using the 

// defined in the CompuTrace Protocol Specification 

(CTPSpec). 

// 

// Returns: The result of the attempt: 

// TRANS_ACK - packet successfully received as 

defined by CTPSpec. 

// TRANS_NAK - reception aborted due to invalid 

reception, EOT sent. 

// TRANS_ETO ~ ENt timeout, no date recieved, EOT 

sent. 

// 

// UINT TPacket::cbCopyText( ptr, len ) 

// Arguments: 

// PVOID ptr - the buffer to copy data to. 

// UINT len - the maximum number of bytes to copy. 
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// 

// Description: 

U M from a sucessfully received packet 

into buffer pointed to packet 

// 

the received packet 
// text 

if rGetPacket 


ved P packet° PieS UP t0 ien bytes or the size of 
text (whichever is smaller). can only be called 


returned TRANS ACK. 


// 

// 

// 

successfully 
// received. 

// 

// TRANS_STATE rState() const 
//* 


nuBber of b y tes copied, or o if packet not 


Returns: the current state of the instance. 


class TPacket { 
public: 


enum TRANS STATE { 

TRANS NULL, 
activity. “ 

TRANS ACK, 
TRANS~NAK, 
TRANS”ET0 ); 
Enquiry time-out.~ 


// No 

// ETO - 


TPacket( TPortt ); 

TRANS_STATE rGetPacket(); 

UINT cbCopyText( PVOID ptr, UINT len ); 

TRANS_STATE rState() const { return state; ) 
protected: 


FLAG fSendENQO 
FLAG fSendACK() 
FLAG fSendNAK() 
FLAG fSendE0T() 

private: 


}; 


TPort* Port; 
int enq__count; 
int nak_count; 

USHORT text_length; 

BYTE packet text(MAX TEXT LEN1; 
TRANS_STATE state; ~ 

TRANS_STATE rReceivePacket(); 


/endif 
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# Created by IBM WorkFrame/2 MakeMake at 17:36:34 on 
08/22/95 

t 

t This makefile should be run in the following directory 
t d:\Server 

f 

i The actions included in this makefile are: 
i COMPILE::CLC C++ 

/ LINK::CLC Link 

.all: \ 

.\DBServer.EXE 

•SUFFIXES: 

.SUFFIXES: .C .CPP 
.CPP.obj: 

Oecho WF::COMPILE::CLC C++ 

icc.exe /Tl- /Xi /ID:\Server\INCLUDE /IE:\SQLLIB 
/IE:\TOOLKT2 1 \CPLUS\OS2H /IE:\Tools\IBMCPP\INCLUDE 
/DDEBUG-4 /Tdp /Q /Wall /Fi /Ti /Gm /G5 /Tm /C %s 

.C.obj: 

@echo WF::COMPILE::CLC C++ 

icc.exe /Tl- /Xi /ID:\Server\INCLUDE /IE:\SQLLIB 
/IE:\TOOLKT21\CPLUS\OS2H /IE:\Tools\IBMCPP\INCLUDE 
/DDEBUG-4 /Tdp /Q /Wall /Fi /Ti /Gm /G5 /Tm /C %s 

.\DBServer.EXE: \ 

.\TObject.obj \ 

•\TSTREAM.obj \ 

.\DBServer.obj \ 

.\ctims.obj \ 

.\CTMessage.obj \ 

.\MessagePipe.obj \ 

.\objects.obj \ 

{$(LIB)}DB Objects.LIB \ 

{$(LIB)}SQL DYN.LIB \ 

{$(LIB))DBServer.DEF \ 

DBServer.MAX 

Oecho WF::LINK::CLC Link 
icc.exe >« 

/Tl- /Xi 

/ID:\Server\INCLUDE 
/IE:\SQLLIB 

/IE:\TOOLKT21\CPLUS\OS2H 

/IE:\TooIs\IBMCPP\INCLUDE 

/DDEBUG-4 

/Tdp /Q 

/Wall 

/Fi 

/Ti /Gm /G5 /Tm 
/B" /de w 
/FeDBServer.EXE 
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OB Objects.LIB 
SQL_DYN.LIB 
DBServer.DEF 
.\TObject.obj 
•\TSTREAM.obj 
.\DBServer.obj 
.\ctins.obj 
.\CTMessage.obj 
.\MessagePipe.obj 
.\objects.obj 
<< 


!include DBServer.Dep 
# Created by IBM WorkFrame /2 
05/30/95 


MakeMake at 


10:20:11 on 


t \Server 16 * h °“ ld be rU " in the foll °“m9 dir.etory: 


t Th ?o^c^* d in this «•> 

# LINK::CLC Link 


• all: \ 

.\Server.EXE 


.SUFFIXES: 


.SUFFIXES: .C .CPP 


•CPP.obj: 

§echo WF::COMPILE::CLC C++ 


.C.obj: 

@echo WF::COMPILE::CLC C++ 

/xap /Q C /w^n $ 


•\Server.EXE: \ 

.\TPacket.obj \ 

.\TPort.obj \ 

•\CT_Trans.obj \ 

.\Server.obj \ 

.\CT_Buffer.obj \ 

•\CT_Log.obj \ 

.\TModea.obj \ 

{$(LIB))CTIMS.LIB \ 

{$(LIB)}MessagePipe.LIB \ 
server.MAX 

#echo WF::LINK::CLC Link 
icc.exe %« 

/Tl- 
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/ID:\Server\Include 
/IM:\CT\Include 
/Tdp /Q 
/Wall 
/Fi /Si 

/Ti /O /Gm /G5 /Tm 
/B" /de" 

/FeServer.EXE 
CTIMS.LIB 
MessagePipe.LIB 
.\TPacket.obj 
.\TPort.obj 
.\CT_Trans.obj 
.\Server.obj 
.\CT_Buffer.obj 
.\CT_Log.obj 
.\TModem.obj 
<< 


!include Server.Dep 
/ifndef CTID_H 
/define CTID_H 

/*** MOVE TO USERTYPE ***/ 

f* /define LOWORD( x ) ((WORD)((DWORD)(x))) 
/define HIWORD( x ) ((WORD)((x) » 16))*/ 


..*****************/ 

/define CTCODE_STR_LEN 10 

typedef WORD *CTCODE; 

extern "C" { 

// 


// fGenerateSerCTID - Creates a new valid Server CTID 
value. 

// 

FLAG APIENTRY fGenerateSerCTID( ULONG fictid ); 

// 

// fXlatSerCTID - Translates a ServerCTID to a 
ClientCTID. 

// 

FLAG APIENTRY fXlatSerCTID( ULONG tcli ctid, ULONG 
ser_ctid ); 

// 

// fXlatCliCTID - Translates a ClientCTID to a 
ServerCTID. 

// 

FLAG APIENTRY fXlatCliCTID( ULONG 4ser_ctid, ULONG 
cli_ctid ); 

// 
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c(i. f „TSn eCTC ° DE • Cre ““ 8 48 ™ trom a v,Ud 

// 

Cli%tid E ^ RY fGenerateCT CODE( CTCODE ctcode, ULONC 
// 

// fConvertStrToCTCODE - Converts a string to CTCODE 
sit t/SnS bU WORD * CtCOde: *" “*•» « ° SSs io be 
string. binary ^Presentation of the input 

CTID STR LEN. STRIN G str: the input string of sire 

/ / ~ ~ 

FLAG^amentry fConvertStrToCTCODE( CTCODE ctcode, STRING 


- converts a CTCODE number to a 

CTlD_STR^LEN ntS " Ch * r * Str: the out P ut string of size 
WORDS. WORD *ctcode: the input array of 3 

S£Sde P c™ f GonvertCT< =OOEToStr( char *str, const 

}» // end extern "C" 

/endif // CTID H 
/ifndef CTIMS_H 
/define CTIMS_H 

/include <usertype.h> 

/ifdef _cplusplus 

extern "C" { 

/endif 


/define CALLERID SIZE 
/define CTSTATUS~SIZE 
/define CTORGNUM SIZE 
/define CTTS SIZE 


typedef 

long 

char 

long 

long 

char 

long 

char 

short 




CTID; 

LicStatus[CTSTATUS SIZE 1 ; 
PeriodDays; “ 

PeriodMinutes; 

StolenFlag; 

SpecialProcess; 
LastCallTS_N[CTTS SIZE]; 

IsNu1l_LastCa11TS~ 
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char NextCallTS_N[CTTS_SIZE); 

short IsNu1l_NextCa1ITS; 

char NextCallClientTS N[CTTS SIZE); 

short IsNull_NextCallcIientTs7 

char Orgnum_N[CTORGNUM_SIZ E]; 

short IsNull_Orgnum; 

char ProductType[CTSTATUS_SIZE]; 

> _CTlicense; 

typedef struct { 
long CTID; 

char Status(CTSTATUS SIZE); 
char LastCallTS N(CTTS_SIZE); 
char NextCallTs”N[CTTS_SIZE]; 
char Next Ca 1 lClXentTS_N ( CTTS__SI ZE ] ; 

> _CTupdateLicenseStatus; 

typedef struct < 
long CTID; 

char ServerTS[CTTS_SIZE]; 
char ClientTS[CTTS SIZE); 
char TelcoTS_N[CTTS SIZE); 
short IsNull TelcoTSj 
short DurationSec_N; 
short IsNull_DurationSec; 
char CallerlD N[CALLERID SIZE); 
short IsNull_CallerID; 
short LineNum; 
char LogFlag; 

char EnvironroentIDfCTSTATUS SIZE); 
short ErrorCnt; ~ 

} _CTiBoni tor Event; 


/* CTIMS.SQC */ 

FLAG _fQueryLicense( _CTlicense*, ULONG CTID ); 

FLAG _fUpdateLicenseStatus ( const CTupdateLicenseStatus* 

) ; 


FLAG _fInsertIntoMonitorEvent ( const 

_CTmonitorEvent* ); 

FLAG _fInsertIntoMonitorEventStolen ( const 
_CTmonitorEvent* ); 

FLAG __fInsertIntoMonitorEventExpired( const 
__CTmonitorEvent* ); 

/* Index.SQC */ 
long _lLastSQLCODE(); 

FLAG _fGetNextTablelndex( ULONG *index, ULONG *count. 
STRING ViewNane ); 

/* ORGOl.SQC */ 
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J*'* 5 - f **ayRemoveCustomer ( STRING orgnum 
Checks if a customer may be removed. 
FLAG fDbArchiveCustomer( STRING orgnum 
Archives a customer. 


); 
) ; 


FLAG _fDbDeleteCustomer ( STRING orgnum ); 

and a11 associated data. 

FLAG _fDbDeleteOrg( STRING orgnum ); 

an or 9 and associated data. 

FLAG _fIsACustomer( STRING orgnum, FLAG exclusive 
Determines whether an org is a customer. 


); 


/ifdef cplusplus 

> 

/endif 


// 

// 

// 

// 

// 


/endif // CTIMS H 
/ifndef DB H 
/define DB~H 

/include "DB_Structs.H" 

/ifdef _cplusplus 

extern "C" { 

/endif 

FLAG flnitDBO; 

FLAG fConnectDB( PCSZ db str ); 

ULONG ulGetSQLCode(); 

void CommitWork(); 
void RollbackWork(); 

/ifdef _cplusplus 

/endif 

/endif // DB H 
/ifndef OBSERVER H 
/define DBSERVER~H 

/define SHIP o 

/define DEBUG 4 

/include <debug.h> 

/include <usertype.h> 

/endif // SERVER H 
/ifndef DB_STRUCTS H 
/define OBSTRUCTS H 

fitdet _cplusplus 

extern "C" { 

/endif 
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/pragma pack( 1 ) 

typedef struct ^TimeStampStruct { 
char year[4); 

5 char dashl; 

char month[2]; 
char dash2; 
char day[2J; 
char dash3; 

10 char hour[2]; 

char dotl; 
char minute[2]; 
char dot2; 
char second[2]; 

15 char dot3; 

char microsec[6]; 

> TimeStampStruct; 

typedef struct _MonitorEventStruct { 

20 ULONG CompuTraeelD; 

TimeStampStruct ServerTS; 

TimeStampStruct PropertyTS; 

TimeStampStruct TelcoTS; 
char CallerID[20]; 

25 SHORT CallSeconds; 

char EnvID[8]; 

} MonitorEventStruct; 

/pragma pack() 

30 

/ifdef _cplusplus 

> 

/endif 

35 /endif // DB STRUCTS H 

/ifndef DEBUG_H 

/define DEBUG H 

/Z******************************************************* 


40 // 

// DEBUG_H - sets the debug level of the code. 


// /define SHIP * l and /undef DEBUG for ship code. 

// 

// /define SHIP * 0 and DEBUG is defined for debug 
45 code. 

// DEBUG » 1 - beta level, PRECONDITION active. 

// DEBUG * 2 - alpha level, adds CONDITION. 

// DEBUG ■= 3 - pre-alpha level, adds CHECK. 

// DEBUG ■ 4 - sanity check level, adds 

50 SANITYCHECK. 

// 


55 /ifdef DEBUG 

SUBSTITUTE SHEET 






- 252 - 


/define ASSERT( x ) 
/define NOTIMPLEMENTED 
implemented error */ ) 

5 /else 


assert( x ) 
assert( o /* Hot 
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/define NDEBUG 
assert.h 

/define ASSERT( x ) 
/define NOTIMPLEMENTED 

/endif // DEBUG 

/include <assert.h> 

/if DEBUG » i 

/define PRECONDITION( x ) 
/else 

/define PRECONDITION/ x 1 
/endif 1 1 

/if DEBUG >« 2 

/define CONDITION( x ) 
/else 

/define CONDITION/ x ) 
/endif 

/if DEBUG >« 3 

/define CHECK( x } 

/else 

/define CHECK/ x ) 

/endif 

/if DEBUG >« 4 

/define SANITYCHECK/ x ) 
/else 

/define SANITYCHECK/ x ) 
/endif 


// Disables debugging in 

(void)o 
(void)O 


assert/ x ) 
(void)0 

assert/ x ) 
/void)o 

assert/ x ) 
(void)o 

assert/ x ) 

(void)O 


/define UNDEF_DATA 

Used to show unallocated memory. 

/define JUNK J 

/define UNINIT DATA 

Used to show uninitialized data. 

/endif // DEBUG H 
/ifndef USERTYPE H 
/define USERTYPE~H 


OxCC 

UNDEF_DATA 

OxDD 


// 

// 


/ifdef _OS2 

/include <os2def.h> 
/endif 


/ifndef _CSET 

/define _Optlink 
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/endif 


// Standard typedef's for Absolute Software. 

#define MAX( x, y ) ((x) > (y) ? (x) : (y)) 

/define MIN( x, y ) ((x) < (y) ? (x) : (y)) 

#ifndef NULL 

/define NULL 0 
/endif 


/define 

TRUE 

1 


/define 

FALSE 

0 


typedef 

unsigned 

char 

FLAG; 

typedef 

unsigned 

char 

BYTE; 

typedef 

unsigned 

char 

UCHAR; 

typedef 

unsigned 

short 

USHORT; 

typedef 

unsigned 

int 

UINT; 

typedef 

unsigned 

long 

ULONG; 

/ifndef 

Windows 




typedef unsigned short WORD; 
typedef unsigned long DWORD; 

/end if 

typedef const char* STRING; 
typedef const void* PCVOID; 

/ifdef _OS2_ 

typedef void (* _Optlink TTHREAD)( PVOID ); 

/endif 

/ifdef _cplusplus 

template <class Tl, class T2> FLAG operator “ ( Tl cl. 
T2 c2 ) 

{ 

return FLAG( cl ~ c2 ); 

> 

template <class Tl. class T2> FLAG operator !- f Tl cl. 
T2 c2 ) 

{ 

return FLAG( cl !« c2 ); 

> 

/endif // _cplusplus 

/endif // USERTYPE_H 
/ifndef CTIMS HPP 
/define CTIMS~HPP 

/include <iostream.h> 

/include <string.h> 
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/define INCL DOSDATETIME 
/include <os2.h> 

/include <debug.h> 
///include <packet.h> 

/include <Objects.HPP> 
/include <CTIMS.H> 

/pragma pack( l ) 
CTStatus, CTOrgNum. 

/define CT_TOK_SIZE 

/define UNUSED TOK 
/define NOTEST~TOK 
/define ACTIVE TOK 
/define EXPIRED TOK 
/define UNDEFINED_TOK 

///define Y_TOK 
///define N_TOK 
///define UNDEF_FLAG TOK 

/define ORGNUM SIZE 
/define ORGNUM“pREFIX SIZE 


// Needed for 


8 


•'UNUSED 

«t 

"NOTEST 

H 

"ACTIVE 

II 

"EXPIRED 

It 

n 

n 

Nyn 


"N" 


M II 



8 

4 


BBBBBBBBBBBBBflBBflBBfiBB 

// 

// CTIMS General types. 

™.J h arI°irt W ^ctfir * re ,en “ al typeS used in CTI * S - 

// to a single implementation: 

LL In"^n»"g US * d '° r b °° lMn ,ields su = h “= StolenFlag 

t0 r * Pr “' nt «“*taap, with 
// TString - represents a string of characters. 

// 


BBBBBBBBBBBBBBBBBBBBBB 

// 

// CTIMS Flag 

lliMMittmiimltii 11111111111111111111111111111111111 


class CTFlag : public TFlag { 
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public: 


CTFlagO : TFlag() {> 

CTFlag( FLAG flag ) : TFlag( flag ) {> 


typedef TFlag CTFlag; 


10 //iiimmmimmimmimimiimimmimiiiii 

iiiiiiiiimiimmii 
// 

// CTIMS Timestamp 
// 

15 //iiiiimitiitiiiiiiiiiiiiimiiiiimtmmmntiim 

iinimmmmimi 

/****************** 

class CTTimestamp : public TTimestamp { 
public: 


CTT imestamp() : TTimestamp() {> 
CTTimestamp( USHORT yr, 




UCHAR mo. 

25 


UCHAR dy. 

hr, mn, 

>; 

UCHAR hr ” 0, 

UCHAR mn • 0, 

UCHAR sc - 0, 

USHORT ms • 0 ) : TTimestamp{ yr, mo, dy, 

30 

sc, ms ) {> 


ft*****************/ 

typedef TTimestamp CTTimestamp; 


35 // UNDER CONSTRUCTION!!! 

//iiiimiimiiimimmmiiiimiimmimtmim 

mmimmmimii 

// 

// CTIMS Status 
AO // 

//lltlttttltlilllttillttilllltnttitnimillliiiittiitii 

imimiiiiiimimi 

class CTStatus : public virtual TNull { 
public: 

45 

CTStatus(); 

CTStatus( STRING str ); 

operator STRING() const { return value; > 

50 

friend ostreami operator « ( ostreami, const 
CTStatust ); 

friend TStream& operator « ( TStreamfi, const 
55 CTStatus* ); 
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friend TStream& operator » ( TStreamt 
CTStatust ); ' 

private: 

char value[9]; 

>; 


BBBBBBBBBBBBBBBBBBBBBB 
// 

// CTIMS Specific types. 

// 

CTIMS? £oUowing t > f P es represent specific data types in 

// 

// CTCallerlD - used to store the CallerlD data 
received from the modem. 

its st^i CStatUS ’ USed in th * License tal »le to denote 
CTIMS. CT ° r9nUIB ’ Organization number used throughout 
// 


BfiBBBBBBBBBBBBBBBBBBBB -- --moddddbbmmbbbb 


// 

// CTIMS CallerlD 

// 


c ^ ass CTCallerlD : public virtual TNull { 
public: 


CTCallerlD() : TNull( TRUE ) {> 

TNun^FALSE 0 / C ° nSt Char ( * 8tr >f CALLERI D_SI2E] ) : 
{ 

nemcpy( value, str, sizeof( value ) ); 

CTCallerlD( STRING str ) : TNull( FALSE ) 

memset( value, • ', sizeof( value ) ); 
memcpy( value, str, strlen( str ) ); 


CTCallerlDi Assign( STRING str 


) 


setNotNull(); 

strncpy( value, str, sizeoff CALLERID SIZE ) 
return *this; — 1 


); 
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> 

operator STRING() const { useAsValue(); return value; 


friend ostream* operator << ( ostream *os, const 
CTCallerlD fid ) 

{ 

if (id.flsNull()) return os << "NULL"; 
else return os.write( id.value, 

sizeof( id.value ) ); 

} 

friend TStream* operator « ( TStream*, const 
CTCallerlD* ); 

friend TStream* operator >> ( TStream*, 
CTCallerlD* ); 

private: 

char value[CALLERID_SIZE]; 

> ; 


// 

// CTIMS License.Status 


class CTLicStatus : public virtual TNull { 
public: 


enum VALUE { 
UNUSED - 0, 
NOTEST = 1, 
ACTIVE « 2, 
EXPIRED - 3 


CTLicStatus() : TNull( TRUE ) {> 

) { J :TLicStatus ^ VALUE val ) : TNull ( FALSE ), value( val 

CTLicStatus( STRING str ); 

CTLicStatus* operator ■ ( VALUE nevval ) 

{ 

setNotNull(); 
value » nevval; 
return *this; 

> 

CTLicStatus* operator « ( STRING ); 

operator STRING() const { useAsV*iue(); return 
STR_SET[value]; } 
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operator VALUE() const { useAsValue(); return value; > 


FLAG operator — ( const CTLicStatus istatus ) const 
{ useAsValue(); return FLAG( value — (VALUE)status 

i 9 S 

FLAG operator — ( VALUE val ) const 

{ useAsValue(); return FLAG( value — val ); } 


CTL!cs“wr“?f f OP * rat ° r « < “ tr “" *«■ 

{ 

if (lie.fIsNull()) return os << "NULL"; 
y else return os « STRING( lie ); 

cnJSsJiSu”*”"* 0p * rator « < Tstr «*«. const 

friend TStreamfi operator » ( TStreamfi 
CTLicStatusi ); ' 


private: 

static const char 
VALUE value; 


STR_SET[][CT_TOK_SIZE+l]; 


// 

// CTIMS Orginization Number. 

class CTOrgnum : public virtual TNull { 
public: 


CTOrgnum() : TNull( TRUE ) {} 

FLAG fSetPrefix( STRING ); 

FLAG fSetIndex( UINT ); 

FLAG fGetPrefixf char * ) const; 

FLAG fGetIndex( UINT &i ) const; 

FLAG fGeneratePrefix( STRING org_name ); 

operator STRING() const; 

CTOrgnumi operator - ( STRING str ) 

setNotNull(); 

strnepy( value, str, sireoff value ) )• 
return *this; 
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friend ostreant operator << ( ostrean kos, const 
CTOrgnun 4 lie ) 

{ 

if (lie.fIsNull()) return os << "HULL"; 

5 else return os.vrite( lie.value, sizeof( 

lie.value ) ); 

} 

friend TStrean& operator << ( TStreamfc, const 
10 CTOrgnun& ); 

friend TStreant operator >> ( TStreani, 

CTOrgnum& ); 

private: 

IS char value[ORGNUM SIZE]; 

>; 
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//BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 

BBBBBBBBBBBBBBBBBBBBBB 

II 

// CTIMS Records. 

II 

// The following types represent records stored in CTIMS. 

II 

I / BBBBBBBBBBBBBBBBBBBBBBBBB&BBBBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBBBBBBBBBBBBB 


// 

// CTIMS MonitorEvent 

// 

//mimmmimmmmmmmimtiimmmmi 

iimitmmnmim 

struct CTMonitorEvent 

{ 

ULONG CTID; 

CTTinestanp ServerTS; 

CTTinestanp ClientTS; 

CTTinestanp TelcoTS n; 


USHORT 
CTCallerlD 
USHORT 
CTFlag 
CTStatus 
USHORT 


DurationSec_n; 

CallerID_n;“ 

LineNun; 

LogFlag; 
EnvironnentID; 
ErrorCnt; 


friend ostreamt operator « ( ostreant, const 
CTMonitorEvents ); 

friend TStreamfc operator « ( TStreamS, const 
CTMonitorEventfi ); 
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friend TStreami operator » ( TStreami 
CTMonitorEventi ); ' 

); 


/pragma pack() 

/endif // CTIMS_HPP 
/ifndef CTMESSAGE HPP 
/define CTMESSAGE~HPP 

/include <stddef.h> 

/include <TStream.HPP> 
/include <CTIMS.HPP> 




******************* 


* 


****** 


// 

// 

// 


***************** 


// CT Message Type Enun. 
enum CT MSG TYPE { 
QUERY_CTID_STATUS, 

CTID_STATUS_RESULT, 
STORE_MONITOREVENT, 
STORE_RESULT, 

CLI QUIT 


CT^MSG TYPE*type°)' erat0r ‘ TStr “" ‘ buf - 

{ 

return buf « USH0RT( type ); 


inline TStream& operator >> 
‘type ) 

{ 

USHORT num; 
buf >> num; 

type - CT_MSG TYPE( num ) 
return buf; 


( TStream tbuf. 



CT MSG TYPE 


// 

// Header for all CT Messages. 

class CTMessageHeader { 
public: 


CTMessageHeader() {} 

l.n C T*“* , * H ““ lar< °“ NI5 id ' CT - MS0 - T * ra type. USHORT 
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: ID( id ), Type( type ), Len( len ) 

{> 


CT_MSG_TYPE eType() const { return Type; } 

friend TStream( operator << ( TStream(, const 
CTMessageHeaderfi ); 

friend TStream( operator » ( TStream(, 
CTMessageHeader( ); 


protected: 

ULONG ID; // The message id 

number. 

CT_MSG_TYPE Type; // The event type (see 

above). 

USHORT Len; // The length the 

message data. 

}; 


// 

// Template for message types. 

// 

template < class TText, CT_MSG_TYPE type > 

class CTMessage : public CTMessageHeader, public TText { 

public: 


CTMessage() 

: CTMessageHeader( 0, type, si 2 eof( *this ) ) 


CTMessage( const CTMessageHeader (Header ) 

: CTMessageHeader( Header ) 

{ 

ASSERT( Type — type ); 

> - 

friend TStreamfc operator « ( TStream *buf, const 
CTMessage< TText, type > (msg ) 

{ 

return buf « *(const CTMessageHeader*)(msg « 

*(const TText*)(msg; 

> 

friend TStream& operator >> ( TStream (buf, CTMessage< 
TText, type > (msg ) 

{ 

return buf » *(CTMessageHeader*)(msg » 

*(TText*)(msg; 

} 


Z************************************** 

// Doesn't seem to work in OS/2 BC++. 
template < class TText, CT_MSG_T¥PE type > 
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TStream* operator « ( TStream *buf, const CTMessage< 
TText, type > tmsg ) 

TText^Iisg^ << / (const CTMessageHeader*) tmsg « * (const 

> 

template < class TText, CT MSG_TYPE type > 

^ r TL:rr or (Tsc " am 4buf ' c ™«*«9«< rr.*:, 

{ 

return buf » *(CTMessageHeader*)tmsg » 

*(TText*)tmsg; y 

> 

***«*m***m*.***.*****o«*o*.***. v 


// 

// CT Message structures. 

// 

struct QueryCTIDStatus < 
ULONG CTID; 


friend TStream* operator « ( TStream* 
QueryCTIDStatus* ); ' 

friend TStream* operator >> ( TStream* 
QueryCTIDStatus* ); 

> ; 


const 


inline TStream* operator « 
QueryCTIDStatus fcrec ) 

{ 

return buf « rec.CTID; 


( TStream *buf, const 


inline TStream* operator » ( TStream *buf 
QueryCTIDStatus tree ) ' 
{ 

return buf >> rec.CTID; 


struct CTIDStatusResult ( 

FLAG QueryResult; 

ULONG CTID; 

CTLicStatus Status; 

ULONG PeriodDays; 

ULONG PeriodMinutes; 

CTFlag StolenFlag; 

ULO NG SpecialProcess; 

CTTimestamp LastCallTS n; 
CTTimestamp NextCallTS~n; 
CTTimestamp NextCallClIentTS n; 
CTOrgnum Orgnum n; 

CTStatus ProductType; 
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friend TStreamfc operator « ( TStreamfc, const 
CTIDStatusResultfc ); 

friend TStreamfc operator >> ( TStreamfc, 
CTIDStatusResultfc ) ; 

>; 

inline TStreamfc operator « ( TStrean fcbuf, const 
CTIDStatusResult fcrec ) 

{ 

return buf << rec.QueryResult 
« rec.CTXD 
<< rec.Status 
<< rec.PeriodOays 
<< rec.PeriodMinutes 
<< rec.StolenFlag 
<< rec.SpecialProcess 
<< rec.LastCallTS_n 
<< rec.NextCallTS n 
<< rec.NextCallClXentTS_n 
<< rec.Orgnura_n ~ 

<< rec.ProductType; 

> 

inline TStream& operator » ( TStream fcbuf, 
CTIDStatusResult fcrec ) 

{ 

return buf >> rec.QueryResult 
» rec.CTID 
>> rec.Status 
» rec.PeriodOays 
>> rec.PeriodMinutes 
>> rec.StolenFlag 
>> rec.SpecialProcess 
>> rec.LastCallTS_n 
>> rec.NextCallTS - n 
>> rec.NextCallClXentTS_n 
>> rec.Orgnun»_n ~ 

>> rec.ProductType; 

} 

struct StoreMonitorEvent : public CTMonitorEvent { 

// Control. 

FLAG StoreAsStolen; 

FLAG StoreAsExpire; 

// Data. 

CTLicStatus Licenses* tus; 

CTTimestamp Next Call*: .< n; 

CTTinestamp NextCallClXentTS_n; 

friend TStream& operator << ( TStreami, const 
StoreMonitorEventfc ); 

friend TStreaml operator » ( TStreaini, 
StoreMonitorEventfc ); 
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); 

inline TStream* operator << ( TStream *buf, const 
StoreMonitorEvent &rec ) 

{ 

return buf « rec.StoreAsStolen 
« rec.StoreAsExpire 
<< rec.LicenseStatus 
« rec.NextCallTS n 
« rec.NextCa11ClientTS_n 
« (const CTMonitorEvent*)rec; 

inline TStream* operator » ( TStream *buf 
StoreMonitorEvent *rec ) ' 

{ 

return buf >> rec.StoreAsStolen 
>;> rec. StoreAsExpire 
> > rec.LicenseStatus 
» rec.NextCallTS n 
» rec. NextCaHClIentTS n 
>> (CTMonitorEvent*)rec7 


struct StoreResult { 
FLAG Result; 


TStream* operator 
StoreResult* ); 

friend TStream* operator 
StoreResult* ); 

inline TStream* operator << 
StoreResult *rec ) 

{ 

return buf << rec.Result; 


inline TStream* operator >> 
&rec ) 

{ 

return buf >> rec.Result; 


« ( TStream*, const 
» ( TStream*, 

( TStream &buf, const 

( TStream &buf, StoreResult 


struct CliQuit { 

friend TStream* operator 
CliQuit* ) { return buf; > 

_friend TStream* operator 
CliQuit* ) { return buf; > 
}; 


« ( TStream *buf, const 
» ( TStream *buf. 


typedef CTMessage< QueryCTIDStatus. 
QueryCTIDStatusMsg; 


QUERY_CTID STATUS > 
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typedef CTMessage< CTIDStatusResult, CTID_STATUS_RESULT > 
CTIDStatusResultMsg; 

typedef CTMessage< StoreMonitorEvent, STORE_MONITOREVENT 
> StoreMonitorEventMsg; 

typedef CTMessage< StoreResult, STORE_RESULT > 
StoreResultMsg; 

typedef CTMessage< CliQuit, CLI_QUIT > CliQuitMsg; 

#endif // CTMESSAGE HPP 
/ifndef DB_OBJECTS_HPP 
/define DB_OBJECTS_HPP 

/include <DB.H> 

/define DB_NULL -1 

/define DB_NOT NULL 0 

/define DB_ISNULL( n ) (FLAG( (n) < 0 )) 

class DataBase { 

PCSZ name; 

public: 

DataBase() { flnitDBO* > 

DataBase( PCSZ dbname ) : name( db name ) { 
flnitDBO; ) 

void SetName( PCSZ str ) { name ■ str; ) 

FLAG fConnect() { return fConnectDB( name ); } 

ULONG ulSQLCode() const { return ulGetSQLCode(); } 

void Commit() { CommitWork(); > 
void Rollback() { RollbackWork(); > 

>; 

/endif // DB OBJECTS_HPP 
/ifndef MESSAGEPIPE HPP 
/define MESSAGEPIPE~HPP 

/include <debug.h> 

/include <usertype.h> 

/include <TStream.HPP> 

//*0****0*»***t**«t**0»»*0M**M**»**0«*M*M»t0** 


// MsgPipeFactory - Factory to create MessagePipe 
instances. 

// Each MessagePipe instance represents a connection 
between a 

// client and the server. 

// 
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// *** PUBLIC INTERFACE *** 

// 

If FLAG fCreatePipe( MessagePipe* *pipe ) 

// Description: 

LLi~+ 4 . Cr ?* tes . a MessagePipe instance and returns a 
pointer to it (via pipe). 

// 

// 

// 

// 


Returns: 

TRUE if the operation is successful. 
FALSE if the operation fails. 


// FLAG fDestroyPipe( MessagePipe *pipe ) 

/ / i « mm • 


// 

// 

pipe 

// 


Description: 

Destroys the MessagePipe instance pointed to by 
Returns: 

TRUE if the operation is successful. 

FALSE if the operation fails. 


// 

// 

// 

// *** PROTECTED INTERFACE *** 

IJt «i" r 5 Ua f vo * d Initp iP e ( MessagePipe *pipe ) 

// 

// 


-- — r r '“ \ "pipe 1 

V1 rtual void DeinitPipe( MessagePipe *pipe ) 
Description: K H ; 

Me*sagePipe*resp®ctively? n * trUCt0r or ““‘rootor of 

int * rn * 1 to support an 

// 

fj v frtua1 FLAG fOpenPipe( MessagePipe* ) 

// virtual FLAG fClosePipe( MessagePipe* ) 

// Description: 

1: f ° P * nPiPe and 

needed * pipe upln ® the 

// 

• fc******************^ ******* 

class MsgPipeFactory { 

friend class MessagePipe; 
public: 


MsgPipeFactory( UINT msg len ) 
: max_msg len( msg len ). 
rc( 0 ) 

{> 

virtual -MsgPipeFactory() {) 


virtual FLAG fCreatePipe( MessagePipe** ) 
virtual FLAG fDestroyPipe( MessagePipe* ) 


0 ; 

0? 


»B?lJi Ma3C I! S9ljen ^ const { return max nsg len; ) 
APIRET rcDosErrorCode() const { return rc; } 
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protected: 


virtual void InitPipe( MessagePipe* ) {> 
virtual void DeinitPipe( MessagePipe* ) {> 

virtual FLAG fOpenPipe( MessagePipe* ) » 0; 
virtual FLAG fClosePipe( MessagePipe* ) ■* 0; 

APIRET rc; 

private: 

UINT max_msg len; 

>; 

f f ******************************************************* 


// SvrMsgPipeFactory - Factory to create MessagePipe 
instances from the 
// Server process. 

// 

// See MsgPipeFactory. 

// 

//**«*.**.***.*M***********0*******0*M******0** 


class SvrMsgPipeFactory : public MsgPipeFactory { 
public: 

SvrMsgPipeFactory{ PCSZ pipe name, UINT max msg size, 
UINT max_msg_num ); ~ “ ~ 

-SvrMsgPipeFactory() {> 

FLAG fCreatePipe( MessagePipe*& ); 

FLAG fDestroyPipe( MessagePipe* ); 

protected: 

// void InitPipe( MessagePipe* ); 

// void DeinitPipe( MessagePipe* ); 

FLAG fOpenPipe( MessagePipe* ); 

FLAG fClosePipe( MessagePipe* ); 

private: 

PCSZ pipe name; 

UINT pipe'len; 

}; 

//****************************************************** 4 


// CltMsgPipeFactory - Factory to create MessagePipe 
instances from the 
// Client process. 
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// 

// See MsgPipeFactory. 

// 

//**H*M**«********** # * 00 *„ 0 „ toooo#ot# ^ 

class CltMsgPipeFactory : public MsgPipeFactory { 
public: 

CltMsgPipeFactory( PCSZ pipe_name, UINT max msg si 2 e 

it * 

-CltMsgPipeFactory() {} 

FLAG fCreatePipe( MessagePipe*& ); 

FLAG fDestroyPipe( MessagePipe* ); 

protected: 

// void InitPipe( MessagePipe* ); 

// void DeinitPipe( MessagePipe* ); 

FLAG fOpenPipe( MessagePipe* ) ; 

FLAG fClosePipe( MessagePipe* ); 

private: 

PCSZ pipe name; 

}; 


// Class MessagePipe - Implements a message pipe 
connection between the client v 

the cUent^nd^hi' 1 ' Thi “ ““ Cl * SS ls used tor both 

~„„e«"n e diKe«nc.s I,PiP * P " Ct0ry iS USed tD hide the 

// 

// FLAG fOpenPipe() 

// FLAG fClosePipe() 

// Description: 

the eHent“iid d thJ ° pen/cl °” * valid connection between 

server. fOpenPipe must be called before anv 
data can be transfered. any 

// 

// FLAG fSendMessage ( PCVOID msg, ULONG msg len ) 

// Description: - ‘ 

ii _ Sends msg[msg_len) through the pipe as raw data 

// Returns: TRUE • success; FALSE ■ failure. 

// FLAG fGetMessage( PVOID msg, PULONG msg len ) 

// Description: ~ 

return un£nT™e* P <,e° “ ? - len blft * int ° "*• Do “ not 
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// is recieved. 

// Returns: TRUE ■ success; FALSE ■ failure. 

// 

// FLAG fTransact( PCVOID out_msg, ULONG out_msg_len, 

5 PVOID in_msg, 

// *" PULONG in_msg_len ) 

// Description: ~ 

// Sends out_msg and then receives in_msg. Does 

not return until a*~ 

10 // message has been received. 

// Returns: TRUE * success; FALSE * failure. 

// 

// PIPE_STATE estate() 

// Returns: 

IS // The current state of the pipe: 

// DISCONNECTED - the pipe is not connected to 

another process. 

// LISTENING - the pipe is waiting for the two 

sides to connect. 

20 // CONNECTED - the pipe is connected; data 

transfer is allowed. 

// CLOSING - pipe is waiting for one side to 

acknowledge closure. 

// 

25 // UINT uMaxMsgLen() const 

// Returns: 

// The maximun message length that can be sent or 

received. 

// 

30 II APIRET rcDosErrorCode () const 

// Returns: 

// The OS API return code of the last API 

operation. Commonly used 

// to determine the type of error once a FALSE has 

35 been returned by 

// one of the member functions above. 

// 

//««+****>***»+****»**.t******************************** 


40 class MessageBuffer; // Forward declaration. 

class MessagePipe { 

friend class SvrMsgPipeFactory; 

45 friend class CltMsgPipeFactory; 

MessagePipe( MsgPipeFactory* ); 

-Me ssagePipe(); 

SO public: 

// Pipe state enum. Fixed numbers are set to match API 
state (see impementation)! 
enum PIPE_STATE { 

55 DISCONNECTED - 1, 
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LISTENING - 2, 
CONNECTED - 3, 
CLOSING - 4 


>; 


FLAG fOpenPipe(); 
FLAG fClosePipe(); 


FLAG fSendMessage( PCVOID msg, ULONG msg len )• 
FLAG fGetMessage( PVOID msg, PULONC .sgleJ)•' 

transact ( PCVOID out_msg, ulong out msg len 
PVOID m_msg, POLONG in_msg_lin ); _»sg_ien, 


FLAG fSendMessage( TStreamA ); 

FLAG fGetMessage( TStreamA ); 

FLAG fTransact( TStream Aout, TStream Ain ); 

PIPE_STATE eState(); 

COnIt ‘ ” tUrn f * Ctor '’- 

API.RET rcDosErrorCode () const { return rc; > 

protected: 


void SetHandle( HPIPE h 
HPIPE GetHandle() const 

private: 


) { hPipe h; > 

{ return hPipe; > 


MsgPipeFactory ‘factory; 
HPIPE hPipe; 

APIRET rc; 


//******M****0******.* # «00*m..* 00 „ M4 , 

*****’***************** ********* 

// 

// MessagePipe inline members. 

inline FLAG MessagePipe::fSendMessage( TStream Astream ) 
strESSfE^??*"* 9 ** strea “- bu ««, stream.iptr - 


inline FLAG MessagePipe::fGetMessage( TStream Astream ) 

ULONG get_len » stream.buf len; 
if (fGetMessage( stream.buffer, Aget len )) / 

stream.iptr - stream.buffer ♦ get len; 
return TRUE; - 

> 

else return FALSE; 
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} 

inline FLAG MessagePipe::fTransact( TStream &out_strm, 
TStream tin stm ) 

{ 

ULONG get_len ■ in_strm.buf_len; 
if (fTransact( out~strm.buffer, out_strm.iptr - 
out_strm.buffer, in_strm.buffer, iget_len )) { 

~ in_strm.iptr ■ in_strm.buffer +*”get_len; 
return TRUE; “ 

> 

else return FALSE; 

> 

/endif // MESSAGEPIPE HPP 
/ifndef OBJECTS_HPP 
/define OBJECTS_HPP 

/include <iomanip.h> 

/include <TObject.HPP> 

//iiiiimimiitiiiimiiimimmmmminiimm 

iiimiiiiiiiiinimi 

// 

// TFlag (used for boolean fields such as StolenFlag and 
InsuredFlag). 

// 

// TFlag - sets initial value. 

// 

// typecast operators: 

// FLAG - throws exception if NULL. 

// STRING - throws exception if NULL. 

// 

// assignment operators: 

// 

// 

// comparison operators: 

// “ - boolean compare, throws exception if NULL. 

// !« 

// 

// iostream operators (friend operators). 

// « 

// » 

// 

//iimiiiiiimitiiimmmmmmittifmitmmif 

iiimmntiutimii 

/define NULL_TOK "NULL" 

/define TRUE TOK "Y" 

/define FALSEJTOK "N" 

class TFlag : public virtual TNull { 
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public: 


TFlag(); 

TFlag( FLAG flag ); 
-TFlag(); 


virtual void SetDefault(); 

TFlagfc Assign( const TFlagt ); 
TFlag& Assign( FLAG ); 


operator FLAG() const; 
operator FLAG() { return value; > 
operator STRING() const; 


TFlag& operator - ( FLAG ); 

TFlagt operator » ( const TFlag& ); 


FLAG operator ■ 
FLAG operator ■ 
FLAG operator - 
FLAG operator ! 
FLAG operator ! 
FLAG operator ! 


( const TFlagt ) const; 
( FLAG ) const; 
( int ) const; 
( const TFlagi ) const; 
( FLAG ) const; 
( int ) const; 


); 
); 


friend ostreanfi operator « ( ostrean*, const TFlag* 


friend istream& operator » ( istreami, 


TFlagfi 


); 
); 


friend TStreami operator « '( TStreami, 
friend TStream& operator » ( TStreaai, 


const TFlagfc 
TFlagf 


PRIVATE IMPLEMENTATION 


protected: 

FLAG value; 

); 


mmxmimmmii 11111111111111111111111111111111111 

// 

// TTinestanp 
// 

tiBestamp^ 1 * 1 * 1 * ” retUrns T* 0 * if ob ^ ect contains a valid 

// “ sets Y* lue to a Jtnown valid value. 

// ToSTRING - converts tinestamp to a string 
representation: •YYYY-MM-DD-HH.nm.ss.uuuuuu". 

it'. . S «uS UM««p SSCrin ’ ' * * trln « to v * ri, l' 

// UINT TSStringLen - value equals the length of the 
representation of a timestamp. 
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II 

// manipulator operators: 

// 

// +« 

II 

// typecase operators: 

// STRING 

II 

II comparison operators: 

ti¬ 
ll !« 

// < 

// > 

// <- 

// >« 

II 

tlilltitlllllllllintliititniitlllllttlliltlUltttlilitl 

iinmtiimmmm 

struct TTimestamp : public virtual TNull { 


TTimestamp (); 

TTimestamp( USHORT yr, 

UCHAR mo, 

UCHAR dy, 

UCHAR hr - 0, 
UCHAR mn - 0, 
UCHAR sc - 0, 
USHORT ms - 0 ); 

"TTimestamp(); 


FLAG fValidate() const; 
void ForceValidate(); 

STRING ToSTRING( char * ) const; 
virtual void SetDefault(); 

static FLAG fIsValidTSString( STRING ); 
static const UINT TSStringLen; 

TTimestamp& Assign( const TTimestamp& ); 

TTimestampfc Assign( USHORT, UCHAR, UCHAR, UCHAR - 0, 
UCHAR - 0, UCHAR - 0, USHORT - 0 ); 

TTimestamp* Assign( STRING, FLAG isnull - FALSE ); 
/ifdef _OS2_ 

TTimestamp* Assign( const DATETIME& ); 

/endif 

II *** manipulator operators 

TTimestamp* operator « ( const TTimestamp* ); 

/ifdef _0S2_ 

TTimestamp* operator - ( const DATETIME* ); 

/endif 


operator +■ ( const TTimestamp* ); 
55 // *** typecast opertors 
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operator STRING() const; 


// *** accessors 

USHORT usYear() const; 
USHORT usMonth() const; 
USHORT usOay() const; 
USHORT usHour() const; 
USHORT usMinute() const; 
USHORT usSecond() const; 


USHORT usMillisec() const; 

// *** comparison operators 

FLAG operator «» ( const TTimestamp its ) const; 

FLAG operator !■ ( const TTimestamp its ) const; 

FLAG operator < ( const TTimestamp its ) const; 

FLAG operator > { const TTimestamp its ) const; 

FLAG operator <■ ( const TTimestamp its ) const; 

FLAG operator >■ ( const TTimestamp its ) const; 

FLAG operator «« ( STRING ) const; 

friend ostreami operator « ( ostreami, const 
TTimestampl ); 

__friend TStreami operator « ( TStreami, const 

TTimestampi ); 

friend TStreami operator » ( TStreami 
TTimestampi ); 

TTimestampi AddToDate( UINT yr, UINT mon, UINT day, 

n Tivi|iH . . UIMT hr - 0, UINT min » 0, UINT sec - 

0, UINT ms * 0 ); 

//Class properties. 

static FLAG fIsLeapYear( USHORT year ); 
static USHORT usMaxMonth(); 

static USHORT usMaxDay( USHORT year, USHORT month ); 

static USHORT usMaxHour(); 

static USHORT usMaxMinute(); 

static USHORT usMaxSecond(); 

static USHORT usMaxMillisec(); 

// ~— PROTECTED IMPLEMENTATION --—_ 

protected: 

USHORT Year; 

UCHAR Month; 

UCHAR Day; 

UCHAR Hour; 

UCHAR Minute; 

UCHAR Second; 

USHORT Millisec; 
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//iiiitiiiiiiitiiitmiiummimiiiimntmmtiiii 

iiiimmmimmii 

// 

// TString 

// 

//miimtiimimnmiiiiimmmtiiimmiimm 

iiiiiimimimmii 

class TString { 

>; 

/include cObjects.INL> 

/endif // OBJECTS_HPP 
/ifndef P0INTER_HPP 
/define POINTER_HPP 

template <class T> class TPointer { 

TPointer(); 

FLAG operator !() const { return fIsNull(); > 

operator const T4 () const { return 
useAsRValue(); } 

operator T4 () { return 

useAsLValue(); } 

const T& operator () () const { return 

useAsRValue(); > 

T4 operator () () { return 

useAsLValue(); > 

const T* operator -> () const { return 

4useAsRValue(); > 

T* operator -> () { return 

&useAsLValue(); > 

const T4 operator * () const { return 

useAsRValue(); } 

Ti operator * () { return 

useAsLValue(); } 

// operator - () { 

private: 

T *ptr; 

>; 

/endif POINTER HPP 
/ifndef BITFLAGS_HPP 
/define BITFLAGS_HPP 

/include <TStream.HPP> 

template <class Enum> class TBitflag { 

public: 
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TBitflag( Enum ); 

TBitflag(); 

Enun Assign( Enum ); 

Enun Set( Enua ); 

Enua Clear( Enua ); 

Enua Change( Enua mask, Enum setting ); 

I*** 0 fIsSct ( Enum ) const; 
flsClear( Enua ) const; 
fIsAn ySet( Enum ) const; 

FLAG fIsAnyClear( Enum ) const; 

Enua operator - ( Enum ); 


operator ULONG () const; 
operator Enum () const; 


friend TStreamfi 
TBitflag<Enua>& ); 

friend TStreami 
TBitflag<Enua>& ); 


operator « 
operator >> 


( TStreamfi, 
( TStream&, 


const 


private: 

ULONG flags; 


: la flagstT) EnUn> TBitfla 9<Enua>: :TBitflag( 


Enua e 


template <class Enua> TBitflag<Enum>::TBitflag() 

/ifdef DEBUG 

flags - UNINIT DATA; 

/endif ~ 

> 


template «l.ss Enu» inline Enun TBitflag<Enum>: :Aesign( 

{ 

return Enum( flags - e ); 

tZS, 1 ?) <CUSS EnUD> inlin * *»™ TBitflag<Enun>: :set( 

{ 

return Enum( flags }- e ) ; 


55 


E^O <Cl * SS En “" > lnli “ E "'“ TBitflag<En U m>: :Clear( 

t 

return Enun( flags -((ULONG)e) ); 
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template <class Enum> inline Enum TBitflag<Enum>::Change( 
Enum mask, Enum settings ) 

{ 

return Enun( flags ■ (flags & -mask)! (settings t 
mask) ); 

} 

template <class Enum> inline FLAG TBitflag<Enum>::flsSet( 
Enum e ) const 
{ 

return FLAG( (flags & e) e ); 

} 

template <class Enum> inline FLAG 
TBitflag<Enum>::fIsClear( Enum e ) const 
{ 

return FLAG( (flags & e) “ 0 ); 

> 

template <class Enum> inline FLAG 
TBitflag<Enum>:rflsAnySet( Enum e ) const 
( 

return !fIsClear(.e ); 

> 

template <class Enum> inline FLAG 
TBitflag<Enum>::fIsAnyClear( Enum e ) const 
{ 

return !fIsSet( e ); 

> 

template <class Enum> inline Enum 
TBitflag<Enum>::operator * ( Enum e ) 

{ 

return Assign( e ); 

> 

template <class Enum> inline TBitflag<Enum>::operator 
ULONG () const 

{ 

return flags; 

} 

template <class Enum> inline TBitflag<Enum>::operator 
Enum () const 
{ 

return (Enum)flags; 

> 

template <class Enum> inline TStream& operator « ( 
TStream &str, const TBitflag<Enum> tbf ) 

{ 

return str « bf.flags; 
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template cclass Enum> inline TStream* 
TStream *str, TBitflag<Enum> tbf ) 

return str » bf.flags; 


operator >> 


( 


/endif // BITFLAGS HPP 
/ifndef TBUFFER_HPP 
/define TBUFFER_HPP 

/include <iostream.h> 


/include <debug.h> 

/include <TBitflag.HPP> 
/include <TStream.HPP> 


/define BUFFER UNIT 


16 


// 


// 

// class TBaseBuffer - 
length memory block. 

II 

class TBaseBuffer { 


implements a simple variable 


public: 


TBaseBuffer(); 

TBaseBuffer( UINT bufsize ); 
-TBaseBuffer(); 


BYTE* Buf(); 

const BYTE* Buf() const; 


FLAG fRealloc( UINT new_size ); 


TB.£&5?Jf 0p * r " tor << < Tstr *»»‘. 

° perator “ < TStroa-i, 


const 


protected: 

TBaseBuffer( const TBaseBuffer* 
constructor. 

££ ic . 0INT H 


); / / Copy 


returns a valid adjuitment. 
BYTE* _buf() 

const BYTE* buf() const 

^ . _ 


BYTE* _newBuf( UINT nev_limit ); 


{ return buffer; } 
{ return buffer; > 
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private: 

BYTE *buffer; // Beginning of 

buffer. 

UINT limit; // Current 

allocated buffer size. 

}; 

inline BYTE* TBaseBuffer::Buf() 

{ 

return buffer; 

> 

inline const BYTE* TBaseBuffer::Buf() const 
{ 

return buffer; 

> 



// 

// class TBuffer - implements a sofisticated memory 
block. 

// includes reference counting, operators, generic 
properties, etc. 

// 

class TBuffer : private TBaseBuffer { 
public: 


// Type for properties of TBuffer. 
enum PROPS { 

DEFAULT * 0, 


FIXED 
buffer. 

READONLY 
modify. 

SHARED = 0x00000004, 
are shared by all. 


0x00000001, 

0x00000002, 


// Lock the size of the 
// Block any attempt to 
// Changes to this string 


USER1 
general use. 
USER2 
USER3 
USER4 
USERS 
USER6 
USER7 

// USER8 


= 0x01000000, // User settings for 


0x02000000, 

0x04000000, 

0X08000000, 

0X10000000, 

0x20000000, 

0X40000000 

- 0x80000000 


(give compiler error with CSet++ 2.1) 

}; 

typedef TBitflag< PROPS > TProps; 


// Too big??? 
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// Construction/Destruction. 

TBuffer( PROPS ■ DEFAULT ); 

TBuffer( UINT length, PROPS = DEFAULT ); 
TBuffer( TBuffer& ); // c 

constructor. 

-TBuffer(); 


// Attribute access. 


UINT uLength() const; 
length of the buffer. 

FLAG fResi2e( UINT new_size 
to a new size, returns TRUE if 
void Resize( UINT new size 
exception if fails. 

const BYTE* Buf() const; 
access to data. 

BYTE* Buf(); 

throws exeption if READONLY or 
const BYTE* Buf( UINT index 
index, checks range. 

BYTE* Buf( UINT index ); 
index, checks range. 


// Returns the 

) / II Shink or grow 

successful. 

)> II Throws an 

// Read-only 

// Access to data, 
!SHARED && ref_c > l. 

) const;// Returns Buf() + 

// Returns Buf() + 


// Reference counting. 

UINT uRef(); 
reference. 

UINT uDeref(); 
reference. 

UINT uRefCount() const; 
reference count. 

TBuffer& PrepareToChange(); 
needed (if COPYMOD*=l) 

TBufferi Copy(); 
copy of this TBuffer. 


// Add a 
// Remove a 
// Return the 
// Makes a copy of 
// Makes a new 


// Generic property interface. 

FLAG fQueryProperty( PROPS ) const; 
specified props are set. 

PROPS SetProperty( PROPS ); 
props. 

PROPS ClearProperty( PROPS ); 
specified props. 


// Returns TRUE if 
// Sets specified 
// Clears 


// Specific propery interface. 

FLAG fQueryReadOnly() const; 
buffer is read-only. 

FLAG fSetReadOnly( FLAG setting ); 
FLAG fQueryFixed() const; 
buffer's length is fixed. 

FLAG fSetFixed( FLAG setting ); 
FLAG fQueryShared() const; 
buffer's value is shared. 

FLAG fSetShared( FLAG setting ); 


// TRUE if this 
// TRUE if this 
// TRUE if this 


// String functions. 
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TBuffer& 
TBuffer& 
TBuffer& 
TBufferfi 
TBuffer& 
TBufferft 
TBuffert 


StrCopy( const TBufferi ); 
StrCopy( STRING ); 

StrConcat( const TBuffer& ); 
StrConcat( STRING ); 

StrTrunc( UINT index ); 
StrGrow( UINT index ); 
StrGrow( UINT index, BYTE pad 


) ; 


// stream operators. 

friend TStreami operator << ( TStreamfc, const TBuffer& 

); 

friend TStream& operator >> ( TStreamfr, TBufferfi 


friend ostream& operator «( ostream &os, const 
TBuffer &Buf ); 

// - protected implementation -- 


protected: 

// direct buffer manipulation functions. 
TBufferfi _strCopy( const TBuffer& ); 
TBufferfi _strCopy( STRING ); 

TBufferfi _strConcat( const TBufferi ); 

TBuffer& _strConcat( STRING ); 

TBufferfi strTrunc( UINT index ); 

TBufferS "strGrow( UINT index ); 

Grows buffer (pads with eos). 

TBuffer& _strGrow( UINT index, BYTE pad ); 
Grows and pads buffer. 

// -----— private implementation — 


private: 


// static TBufferHeap *heap; // Manages all 

TBuffers. 


UINT length; 

allocated data (actual buffer is 

byte larger for eos). 

UINT ref_c; 

TProps props; 
properties. 


// Length of 

// guaranteed 1 

// Reference Count. 

// Attribute 


#include <TBuffer.INL> 

#endif // TBUFFER_HPP 
/ifndef TMSG HPP 
/define TMSG~HPP 

typedef ULONG MSG_ID; 

enum MSG_TYPE // Derived event classtype. 
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TSYSMSG, // TSysMsg type. 

TOBJMSG // TObjMsg type. 


//■ 


// 

// TMessageHandlerObject - Abstract base class for 
TMessage aware objects. 

// AKA - TMsgHObj. 

// 

class TMessageHandlerObject { 
public: 


friend class TMessage; 
typedef FLAG (TMessageHandlerObject::* 
fHandleMessage)( TMessage * ); 

protected: 


virtual FLAG handleMessage( TMessage* ) * 0; 
virtual FLAG postMessage ( TMessage* ) ■ 0; 


>; 

typedef TMessageHandlerObject TMsgHObj; 
Define synonym. 



// 

// TMessage - Abstract base class for all messages. 


class TMessage { 
public: 

enum STATE { 

PRODUCED, 

POSTED, 

PENDING, 

EXECUTING, 

CONSUMED 

); 

TMessage( TMsgHObj *source, MSG ID id, PVOID data ): 
virtual -TMessage(); 

// Message Properties. 

virtual const TMsgHObj* Source() const { return 
source; > 

. virtual const STATE State() const { return state; 

virtual const MSG_ID Id(> const { return id; > 

virtual const, MSGJTYPE Type() const - 0; 
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virtual PVOID Data() { return data; 

} 

// Message Methods. 

virtual FLAG fSend() = 0; 

protected: 

STATE state; 

private: 

TMsgHObj ‘source; 

MSG_ID id; 

PVOID data; 

); 

// 

// 

// 

class TSysMsg : public TMessage { 
public: 

static void SetSystemHandler( TMsgHObj *syshnd ) { 
system_handler ® syshnd; > 

TSysMsg( TMsgHObj ‘source, MSG_ID id, PVOID data ); 

virtual const MSG_TYPE Type() const { return TSYSMSG; 

virtual FLAG fSend{); 

private: 

static TMsgHObj ‘system handler; 

}; 

class TObjMsg : public TMessage { 
public: 

TObjMsg( TMsgHObj ‘source, TMsgHObj ‘target, MSG ID 
id, PVOID data ); 

virtual const MSGJTYPE Type() const { return TOBJMSG; 
virtual FLAG fSend(); 
private: 

TMsgHObj ‘target; 

}; 


50 


class TEModem : public TModem, public 
TMessageHandlerObject { 

55 public: 
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FLAG handleMessage( TMessage* ); 
FLAG postMessage ( TMessage* ) ; 


> ; 


FLAG TEModem::handleMessage( TMessage *event ) 

if (event->Source() == 4Port()) { 
if (fResultReceived()) { 


TModemMessage event 
rcResultCode() ); 


new TModemMessage( this. 


event->fSend( ModemHandler ); 

// ~> ModemHandler.handleMessage( event ); 

> 

else return FALSE; 

1 9 


FLAG TEConnect::handleModemMessage( TModemMessage *event 
{ 


if (event->ResultCode() 
waitForEnq(); 
return TRUE; 

> 

> 


TModem::CONNECT) 


/endif // TMSG_HPP 
/ifndef TEXCEPTION HPP 
/define TEXCEPTION_HPP 

/include <iostream.h> 

/include <usertype.h> 

typedef ULONG ERROR_ID; 

/define EXP_STRLIST_SIZE 10 

class TException { 
public: 


enum SEVERITY { 
UNRECOVERABLE, 
RECOVERABLE 

}; 


TException( STRING string, ERROR ID id 
UNRECOVERABLE ); - 10 

TException( const TException& ); 
-TException(); 


0, SEVERITY - 


TException* AddString( STRING error_str ); 


SUBSTITUTE SHEET 



- 285 - 


5 


10 


15 


20 


25 


30 


35 


40 


45 


50 


// TException& Appendstring( STRING error_str ); 

TExceptioni SetSeverity( SEVERITY sev ) { severity » 
sev; return *this; > 

TExceptioni SetErrorId( ERROR_ID id ) { error_id “ id; 
return *this; > 

virtual FLAG flsRecoverableO const { return severity 
— RECOVERABLE; > 

virtual STRING GetName() const { return "TException"; 


STRING GetString( UINT i * 0 ) const { return 
strlist[i]; > 

UINT uGetStringCount() const { return str_count; > 
ERROR_ID GetErrorId() const { return error_id; } 

private: 

STRING strlist[EXP_STRLIST_SIZE]; 

UINT str_count; 

ERROR_ID~error id; 

SEVERITY severity; 


ostream& operator « ( ostream&, const TException& ) ; 

/endif // TEXCEPTION_HPP 

/ifndef TMESSAGE_HPP 
/define TMESSAGE HPP 


/include <usertype.h> 


typedef ULONG MSG_ID; 
enum MSG_TYPE 
{ 

TSYSMSG, 

TOBJMSG, 

TSPECHSG 

>; 


// Derived event classtype. 

// TSysMsg type. 

// TObjMsg type. 

// TSpecMsg type. 


//■ 


// 

// TMessageHandlerObject - Abstract base class for 
TMessage aware objects. 

// AKA - TMsgHObj. 

// 

class TMessageHandlerObject { 
public: 

friend class TMessage; 

typedef FLAG (TMessageHandlerObject::‘HANDLER)( 
TMessage* ); 
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FLAG fHandleMessage( TMessage* ); 
for virtual function handlerMessage(). 


// Front-end 


private: 

P ^ G -^ iandl * M * s# ag*( TMessage* ) - 0 ; // 

Should nt call directly (call fHandleMessage() instead). 


typedef TMessageHandlerObject TMsqHObi; 
Define synonym. 



// 

// TMessage - Abstract base class for all messages. 


class TMessage { 
public: 


enum STATE { 
PRODUCED, 
but not used. 

PENDING, 

is pending execution. 

EXECUTING, 
is being executed. 
CONSUMED 

can be destroyed. 


// Message has been created 
// Message has been sent and 
// Message has been sent and 
// Message was consumed and 


TMessage( TMsgHObj ‘source, MSG ID id 
virtual -TMessage(); 


PVOID data ); 


// Message Properties. 

virtual const TMsgHObj* Sourcen 
source; } u 

virtual const STATE State() 

virtual const MSG_ID ld() 

virtual const MSG TYPE Typed 

virtual PVOID Data() 


const { return 

const { return state; 

const { return id; } 
const * 0; 

{ return data; 


// Message Methods. 

FLAG fSend(); 
function. 


// Front-end to the send() virtual 


// State changes. 

void StateToPending() { state 
void StateToExecute() { state 
void StateToConsumed() { state 


PENDING; ) 
EXECUTING; ) 
CONSUMED; ) 


private: 

virtual FLAG send() « 0; 
(call fSend() instead). 


// Should not call directly 
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STATE state; 

TMsgHObj ‘source; 

MSG_ID id; 

PVOID data; 

>; 

7 / 

// 

// 

class TSysMsg : public TMessage { 
public: 

static void SetSystemHandler( TMsgHObj ‘syshnd ) { 
system_handler «* syshnd; } 

TSysMsg( TMsgHObj ‘source, MSG_ID id, PVOID data ); 

virtual const MSG_TYPE Type() const { return TSYSMSG; 


private: 

virtual FLAG sendQ ; 

static TMsgHObj *system handler; 

>; 

// 

// 

// 

class TObjMsg : public TMessage { 
public: 

TObjMsg( TMsgHObj *source, TMsgHObj *target, MSG ID *» 
0, PVOID data = NULL ); 

virtual const MSG_TYPE Type() const { return TOBJMSG; 


protected: 

virtual FLAG send(); 

TMsgHObj ^target; 

>; 

class TSpecMsg : public TObjMsg { 
public: 

TSpecMsg( TMsgHObj *src, TMsgHObj *trt, 

TMsgHObj::HANDLER, MSG_ID « 0, PVOID data « NULL ); 

virtual const MSG_TYPE Type() const { return TSPECMSG; 


private: 

virtual FLAG send(); 
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TMsgHObj::HANDLER handler; 


}; 

/* 

class TEModem : public TModem, public 

TMessageHandlerObject { 

public: 

FLAG handleMessage( TMessage* ); 
FLAG postMessage ( TMessage* )/ 

}; 


FLAG TEModem::handleMessage( TMessage *event ) 

if (event->Source() == &Port()) { 
if (fResultReceived()) { 

reResultcSeoT SSa,e * Vent ’ 


this. 


event->fsend( ModemHandler ); 

// > ModemHandler.handleMessage( event ); 

> 

else return FALSE; 

* w 


FLAG TEConnect::handleModemMessage( TModemMessage *event 
{ 

if (eyent->ResultCode() *>* TModem::CONNECT) / 
vaitForEnq(); 1 

return TRUE; 

> 

*****+**+********i,i,m i ,i,i t i, i , i 'i,mm^ l 


/endif If TMESSAGE HPP 
/ifndef TMODEM_HPP” 
/define TMODEM HPP 


/include <TPort.HPP> 

// class TModem - 

// 

// 

itimiltimniiitii} 11111111111111111111111111111111111 

class TModem { 
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public: 


enun RC { 

OK = 0, 

CONNECT * 1, 

RING » 2, 

NO_CARRIER - 3, 

ERROR -> 4, 

C0NNECT_1200 « 5, 

NO_DIALTONE - 6, 

BUSY - 7, 

NOANSWER - 8, 

EXTENDED RC * 9 

>; 


enum EVENT { 
EV_ANYCMD, 
EV OK, 
EV~CONNECT, 
EV RING; 
EV~NOCARR, 
EV~ERROR 


TModem( TPort Sport ); 

FLAG fSendCommand ( STRING ); 

FLAG fResultReceived(); 

RC rcResultCode() const; 

STRING strResultCode() const; 

RC rcSendCommand( STRING, ULONG timeout ); 

STRING strSendCommand( STRING str, ULONG timeout ); 
STRING strGetString( ULONG timeout ); 

const TPort& Port() const { return port; > 

TPort& Port() { return port; > ' 

#ifndef _THREADS 

void ManageEvents(); // For single 

threaded usage, 
lendif 

//- PRIVATE IMPLEMENTATION - 


private: 

TPortS port; 

char last_command[80]; 
char last_result[80]; 
RC last rc; 
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/endif // TMODEM HPP 
/ifndef TOBJECT_HPP 
/define TOBJECT_HPP 

/include <usertype.h> 
/include <debug.h> 

/include <TStream.HPP> 

/include <iostream.h> 


BBBBBBBBBBBBBBBBBBBBBB -— 

// 

// CTIMS Root types. 

// 

£eaJt S to be^ * r * US * d by derivation They are not 

// imp1emented. 

// 

// TObject - 

// TNull - 

// 

// Object root class. 

class TObject { 
public: 


virtual -TObject(); 

// ... 

// not implemented. 

// ... 

>; 

// 

// CTIMS Nullable Object root class. 

// Public interface: 

// 

// TNull - sets initial value. 

// TRUE ■ object is NULL. 

II FALSE * object has a value. 

// flsNull - returns TRUE if NULL. 
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// fSetNull - sets object to NULL. 

// fSetDefault - sets object to its default value, 
(pure virtual) . 

// operator ! - returns TRUE if object is NULL. 

tmiimiimmiim 

class TNull : public virtual TObject { 


public: 

TNull( FLAG isnull - TRUE ); 

FLAG flsNullO const; 
virtual FLAG fSetNull(); 

virtual void SetDefault() {> // This should be 

pure virtual!!! 


FLAG operator !() const; 

friend TStreami operator << ( TStreami, const TNull* 

) 9 

friend TStream* operator >> ( TStream*, TNull* 

) ; 

//-PROTECTED IMPLEMENTATION- 


protected: 

virtual void setNotNull(); // called when used 

as an L-Value. 

virtual void useAsValue() const; // called when used 
as an R-Value. 


II -PRIVATE IMPLEMENTATION 


private: 

FLAG isnull; 

>; 


#include <TObject.INL> 

#endif // TOBJECT HPP 
#ifndef TPOINTER_HPP 
/define TPOINTER HPP 


/include <debug.h> 

template <class T> class TPointer { 
public: 

TPointer() : ptr( NULL ) {} 
TPointer( T *pt ) : ptr( pt ) {> 
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FLAG operator !() const { 

operator const T* 
useAsRValue(); > 

operator T* 

useAsLValue(); } 

const T* operator -> 
useAsRValuef); > 

T* operator -> 
useAsLValue(); } 

const T4 operator * 
*useAsRValue(); > 

T4 operator * 
♦useAsLValue(); } 

TPointeri operator ■ ( t* 
♦this; > ' 

FLAG operator *=* ( PVOID 1 
“ p; > 

FLAG operator !« ( PVOID i 
P); } 1 


return ptr — MULL; } 

() const { return 
O { return 

() const { return 
O { return 

() const { return 
() { return 

pt ) { ptr * pt; return 

) const { return (PVOID)ptr 
) const { return !(*this *= 


protected: 

return S ptr; “ seAsRValue <> const { ASSERT! ptr ! 
return ptr; “ seAsLV * lue <> ( *SSERT( ptr ! 


NULL ) ; 
NULL ) ; 


private: 

T *ptr; 

}; 


/endif // TPOINTER HPP 
#ifndef TPORT HPP ~ 

/define TPORT~HPP 

/include <debug.h> 

/ifdef OS2 

/define _THREADS 
/include "CT_Buffer.HPP" 

/include "CT Log.HPP" 

/endif “ 

/ifdef ^Windows 

// Windows includes here. 

/endif 

II 

// TPort - implements a com port as an object. 
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// fOpenPort - opens the port, initializes it to 
desired settings. 

// fClosePort - closes the port. 

// 

// FlushlnputBuffer - flushes the input buffer. 

// FlushOutputBuffer - flushes the output buffer. 

// flsEmpty - returns TRUE if the Ports buffers are 
empty. 

// flsFull - returns TRUE if the Ports buffers are 
full. 

// 

// fGetChar - gets a character from the input buffer. 

// fPutChar - puts a character into the output buffer. 

// fReadPort - reads a block of data from the input 
buffer. 

// fWritePort - reads a block of data to the output 
buffer. 

// fDropDTR - drops DTR (signals that the computer is 
not ready). 

// fRaiseDTR - raises DTR (signals that the computer 
is ready). 

// 

// StartLog - start logging all incoming characters. 

// StopLog - stops logging incoming characters. 

// fDumpLog - writes the log to a file and resets the 

log. 

// rcErrorCode - returns the os specific error code 
from the last operation. 

// 

//iiimmimnmmmitimmminmiimimnn 

ttiniiutittminm 

class TPort { 
public: 


#ifdef _OS2_ 

env PARITY { 

J - 0, 

ODD « 1, 

EVEN « 2, 

MARK « 3, 

1 ) • 

SPACE * 4 
always 0). 

>; 

enum STOP_BITS { 

ONE - 0, 

ONE_AND_HALF - 1, 
data bit length only). 
TWO ■* 2 

bit WORD length). 

>; 

#endif // _OS2_ 

lifdef ^Windows 
enum PARITY { 


// No parity. 

// Odd parity. 

// Even parity. 

// Mark parity (parity bit always 
// Space parity (parity bit 


// 1 stop bit. 

// 1.5 stop bits (valid with 5 
// 2 stop bits (not valid with 5 
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NO, 

ODD, 

EVEN, 

MARK, 

1 ) • 

SPACE 
always 0). 

}; 

enum ST0P_B1TS { 
ONE, 

ONE_AND_HALF, 
data bit length only). 
TWO 

bit WORD length). 

}; 

/endif // Windows 


//No parity. 

// Odd parity. 

// Even parity. 

// Mark parity (parity bit always 
// Space parity (parity bit 


// 1 stop bit. 

// 1.5 stop bits (valid with 5 
// 2 stop bits (not valid with 5 


struct ComSettings { 
STRING port_name; 
UINT port_num; 

UINT bps; 

UINT data_bits; 
PARITY parity; 
STOP_BITS Stop_bits; 


TPort(); 

-TPort(); 

1^5 !°P enport ( const ComSettings & settings ); 
FLAG fClosePort(); ^ ' 

void FlushlnputBuffer(); 
void FlushOutputBuffer() ; 

FLAG flsEmptyO const; 

FLAG fIsFull() const; 


FLAG fGetChar( char fcch ); 

FLAG fPutChar( char ch ); 

FLAG fReadPort( PVOID, UINT & ); 
FLAG fWritePort( PVOID, UINT ); 
FLAG fWritePort( PCSZ sz ); 

FLAG fDropDTR(); 

FLAG fRaiseDTR(); 


/ifdef ^THREADS 

FLAG fStartManageThread(); 
void ManagePort ()! 
thread. 

void Ki1lManageThread(); 


// Default manage 


FLAG fStartCommandThread( TTHREAD ); 


SUBSTITUTE SHEET 


- 295 - 


5 


10 


15 


20 


25 


30 


35 


40 


45 


50 


55 


FLAG fStartCouunandThread( TTHREAD, PVOID data ) 
void KillCommandThreadO ; 

/endif 

void StartLogO ; 
void StopLogO; 

FLAG fDumpLog( const char *fname ); 

ULONG rcErrorCode() const; 

//- PRIVATE IMPLEMENTATION - 


private: 

#ifdef _OS2_ 

HFILE hPort; 

CT_Buffer buffer; 

CT_Log log; 

int manage thread, command_thread; 

APIRET rc; _ 

FLAG fManThread , fCmdThread, log_flag; 

Fendif 

/ifdef _Windows 

// Windows variables inserted here. 

/endif 

>; 

// Include inline functions. 

/ifdef _OS2_ 

/include <tpOrt.os2> 

/endif 

/ifdef ^Windows 

/include <tport.win> 

/endif 

/endif // TPORT_HPP 
/ifndef TSTREAM_HPP 
/define TSTREAM_HPP 

/include <usertype.h> 

/define MAX CTMSG_SIZE 512 

/define DEFJTSTREAM_SIZE 512 

// 

// TStream 

// 

class TStream { 
public: 

TStream( UINT buf_size - DEF_TSTREAM_SIZE ); 
-TStream(); ” 
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void Reset(); 


TStream4 operator << ( const FLAG ) 

TStreamfi operator << ( const USHORT ) 

operator << ( const UINT ) 

TStrean* operator << ( const ULONG ) 

TStreamA operator « ( const char* ) 

Ts tream4 operator » ( FLAG4 ); 

TStreamA operator >> ( USHORTA ); 
TStreamA operator » ( UINTA ); 
Tstream * operator » ( ULONG& ) • 

TStreamA operator » ( char* ) • 


TStream4 Put( const PVOID data 
TStream4 Get( PVOID data, 

protected: 

TStream4 incExtractor( UINT ); 
TStreain4 inclnserter( UINT ) ;' 


UINT size ); 
UINT size ); 


private: 

ULONG buf_Ien; 
BYTE *buffer; 

BYTE *iptr, *xptr; 


friend class MessagePipe; 
// KLUDGE for DBServer.C 


/***************************«*****«*** 

template cclass T> TStream 4 operator « 
template <class T> TStream4 operator » 


***************** 

( TStream4, const 
( TStream4, 


template <class T> TStream4 
^stream, const T 4t ) 

{ 

return stream.Put( pvoid( 


operator « ( TStream 
4t ), sizeof( t ) ); 


template <class T> TStream4 

4stream, t 4t ) 

# * 


operator » 


( TStream 


return stream.Get( PVOID( 4t ), sizeof( T ) ); 


***************************** 
********************* j 




******** 


/endif // TSTREAM HPP 
/ifndef TSTRING HPP 
/define TSTRING - HPP 
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FLAG flsNull( STRING str ); 

FLAG fIsNotNull( STRING str ) ; 

FLAG fStrCmpE( STRING strl, STRING str2 ); 

FLAG £StrCmpL( STRING strl, STRING Str2 ); 

FLAG fStrCmpG( STRING strl, STRING Str2 ) ; 

FLAG operator — ( STRING strl, STRING Str2 ) 

FLAG operator != ( STRING strl, STRING str2 ) 

FLAG operator < ( STRING strl, STRING Str2 ) 

FLAG operator <*= ( STRING strl, STRING Str2 ) 

FLAG operator > ( STRING strl, STRING str2 ) 

FLAG operator >= ( STRING strl, STRING str2 ) 

/include <StrOps.INL> 

class TString { 

public: 

TString(); 
string. 

TString( const TString & ); 
constructor. 

TString( STRING ); 
constructor. 

TString( STRING, STRING ); 
concatinaton of two strings. 

-TString(); 


// Constructs null 
// Copy 
// Copy 

// Constructs a 


// *** Testing functions. 

FLAG flsAlphanumeric () 
string is alpha-num. 

FLAG flsAlphabetic () 
string is alphabetic. 

FLAG flsUpperCase () 
string is upper case. 

FLAG flsLoverCase () 

string is lower case. 

FLAG flsWhiteSpace () 
string is whitespace. 

FLAG flsPrintable () 

string is printable. 

FLAG flsPunctuation () 
string is punctuation. 

FLAG flsControl () 

string is control character 

FLAG flsGraphics () 

string is alphabetic. 


const; 

// 

TRUE 

if 

entire 

const; 

// 

TRUE 

if 

entire 

const; 

// 

TRUE 

if 

entire 

const; 

// 

TRUE 

if 

entire 

const; 

// 

TRUE 

if 

entire 

const; 

// 

TRUE 

if 

entire 

const; 

// 

TRUE 

if 

entire 

const; 

// 

TRUE 

if 

entire 

s. 

const; 

// 

TRUE 

if 

entire 
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FLAG fIsASCII 
string is ASCII. 


-298 - 

() const; // TRUE if entire 


FLAG flsDigits () const; 

string is decimal. 

FLAG flsHexDigits () const; 

string is hexadecimal. 

FLAG flsBinaryDigits () const; 
string is binary. 


// true if entire 
// TRUE if entire 
// TRUE if entire 


// *** manipulator operators. 

TStringSi operator « ( const TString &str 

TStnng operator - ( ) const; 

TString& operator +« ( STRING ); 

TStringSi operator &= ( STRING ); 

TStringSi operator |= ( STRING ); 

TStringfi operator ( STRING ); 



friend TString operator + ( STRING strl, STRING str2 
friend TString operator & ( STRING strl, STRING str2 
friend TString operator | ( STRING strl, STRING str? 
friend TString operator - ( STRING strl, STRING str2 


// *** accessors. 

UINT uLength() const; 

TString substring( UINT start pos ) const; 
pad^char"- ,tart,>0, ' UIMT 1 "» th ' 


char St operator [ ] 
const char& operator [] 

// *** typecase operators, 
operator STRING 
operator unsigned char* 
operator char* 


( unsigned index ); 

( unsigned index ) const; 


() const; 

0 ; 

0 ; 


// *** stream operators. 

TStringSi operator « ( const TStrinqfi 
TString St operator « ( char ) ; 
TStringi operator « ( int ); 

TStrinQS operator « ( long ); 


); 


friend TStream& operator << ( TStreamS, 
) » * 

friend TStreamSt operator » ( TStreami, 

) i 9 


const TString& 
TStringSi 


TsJinrtS??*"”* 0P * r * tOr <<( ° Str * a " sos - 
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// *** properties. 

FLAG fQueryReadonly() const; // TRUE if thi6 

string is read-only. 

FLAG fSetReadOnly( FLAG setting ); 

FLAG fQueryFixed() const; // TRUE if this 

string's length is fixed. 

FLAG fSetFixed( FLAG setting ); 

FLAG fQueryShared() const; // TRUE if this 

string's value is shared. 

FLAG fSetShared( FLAG setting ); 


private: 

TString( TBuffer *pBuffer ); // Create a new 

TString based on a TBuffer. 

void prepareToChange(); // Called before 

any change to the string is made. 

TBuffer* assignBuffer( TBuffer* ); // Assigns the new 

buffer to the old one. 


TBuffer *buffer; // Pointer to 

allocated memory block. 

>; 

template <class base> class TSTRING { 


>; 


template <UINT angth, char padding> class TCharArray { 

TCharArray(); // Constructs 

padded array. 

TCharArray( STRING ); // STRING Copy 

constructor. 

private: 


}; 


/include cTString.INL> 

/endif // TSTRING_HPP 

//*********************.******************* 

// 

// TFlag inline members. 

// 

inline void TFlag::SetDefault() 
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inline TFlags TFlag::Assign( const TFlag Sflag ) 

setNotNull(); 
value - flag.value; 
return (*this); 


inline TFlags TFlag::Assign( FLAG flag 


setNotNull(); 
value - FLAG( flag 
return (*this); 


FALSE ); 


) 


inline TFlag::operator FLAG() const 
useAsValue(); 

return FLAG( value != FALSE ); 

inline TFlag::operator STRING() const 
useAsValue(); 

} return (value) ? TRUEJTOK : FALSE_TOK; 

inline TFlagfi TFlag::operator - ( const TFlag «i ag ) 
return Assign( flag ); 


inlin. TFlagt TFlag::operator - ( FLAG flag , 
return Assign( flag ); 


II *** Comparison operators *** 


emit 6 FLAG TFla ^ :: operator — ( const TFlag fifiag ) 
( 


useAsValue() ; 

return FLAG( value — FLAG( flag ) ); 


inline FLAG TFlag::operator — ( FLAG flag ) const 
useAsValue(); 

return FLAG( value — flag ); 


inline FLAG TFlag: .-operator — ( int flag ) const 
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{ 

useAsValue(); 

return FLAG( value = (flag != 0) ); 

> 

inline FLAG TFlag::operator != ( const TFlag &flag } 
const 
{ 

useAsValue(); 

return FLAG ( (*this *** flag) «=* 0 ); 

> 

inline FLAG TFlag::operator !- ( FLAG flag ) const 
{ 

useAsValue(); 

return FLAG( (*this == flag) =«= 0 ); 

> 

inline FLAG TFlag::operator != ( int flag ) const 
{ 

useAsValue(); 

return FLAG( (*this == flag) •== 0 ); 

> 

//A****************************************************** 


// 

// TTimestamp inline members. 

// 

inline void TTimestamp::SetDefault() 

{ 

ForceValidate(); 

) 

inline TTimestamp& TTimestamp::operator = ( const 
TTimestamp fits ) 

{ 

return Assign( ts ); 

> 

lifdef _OS2_ 

inline TTimestamp& TTimestamp::operator ** ( const 
DATETIME &Date ) 

{ 

return Assign( Date ); 

> 

#endif // _0S2_ 

inline USHORT TTimestamp::usYear() const 

{ 

return Year; 

> 

inline USHORT TTimestamp::usMonth() const 
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{ 

} 


return Month; 


inline USHORT TTimestamp::usDay() const 
return Day; 

> 

inline USHORT TTimestamp::usHour() const 
return Hour; 

} 

inline USHORT TTimestamp::usMinute() const 
return Minute; 

> 

inline USHORT TTimestampr:usSecond() const 
return Second; 

> 

inline USHORT TTimestamp::usMi11isec() const 
return Millisec; 


TTiinesta »P :: orator < ( const TTimestamp 

{ 

return FLAG( !(*this >= ts) ); 


its^cS^t TTi,watM, P ! : °P«r«tor <= ( const TTimestamp 

{ 

return FLAG( !(*this > ts) ); 


inline FLAG TTimestamp::operator 
&ts ) const 


{ 

} 


return FLAG( !(*this *= ts) ); 


// static member. 

inline FLAG TTimestamp::flsLeapYear 


{ 


if (year % 4 && J(year % loo 


TRUE; 

else return FALSE; 


I I 


( const TTimestamp 


USHORT year ) 

(year % 400))) return 
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// static member. 

inline USHORT TTimestaap::usMaxMonth() 

{ 

return 12; 

> 

// static member. 

inline USHORT TTimestamp::usMaxHour() 

{ 

return 23; 

> 

// static member. 

inline USHORT TTimestamp::usMaxMinute() 

{ 

return 59; 

) 

// static member. 

inline USHORT TTimestamp::usMaxSecond() 

{ 

return 59; 

> 

// static member. 

inline USHORT TTimestamp::usHaxMillisec() 
{ 

return 999; 

> 


// 


// 

// Inline members of TBuffer. 

// 

inline UINT TBuffer::uLength() const 
{ 

return length; 

> 

inline void TBuffer::Resize( UINT new size ) 

{ 

if (!fResize( new_size )) ASSERT( FALSE ); 

> 

inline const BYTE* TBuffer::Buf() const 

< 

return TBaseBuffer::Buf(); 

> 

inline BYTE* TBuffer::Buf() 

{ 

ASSERT( fQueryProperty( READONLY ) == FALSE ); 
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ASSERT( fQueryProperty( SHARED ) — TRUE 11 
uRefCount() — i ); 11 

return TBaseBuffer::Buf(); 


inline const BYTE* TBuffer::Buf( UINT index ) const 

ASSERT( index < uLengthf) ); 
return Buf() + index; 


inline BYTE* TBuffer: :Buf( UINT index ) 

ASSERT( index < uLength() ); 

return Buf() + index; 

1 9 


inline UINT TBuffer::uRefM 
{ 

return ++ref_c; 


inline UINT TBuffer::uDeref() 

< 

// Decrement ref_c. If ref c 
if (“•ref_c) return ref~c; 
else { ~ 

delete this; 
return 0; 

> 

} 


0 then delete this object. 


inline UINT TBuffer::uRefCount() const 
return ref c; 

> 


inline FLAG TBuffer::fQueryProperty( props prop ) const 
return props.flsSet( prop ); 


inline TBuffer::PROPS TBuffer::SetProperty( PROPS prop ) 
return props.Set( prop ); 


inline TBuffer::PROPS TBuffer::ClearProperty( PROPS prop 

{ 

return props.Clear{ prop ); 


inline FLAG TBuffer::fQueryReadOnly() const 
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return props.fIsSet( READONLY ); 

} 

inline FLAG TBuffer::fSetReadOnly( FLAG f ) 

{ 

return FLAG( ((f ? props.Set( READONLY ) : 
props.Clear( READONLY )) READONLY) ■= TRUE ); 


inline FLAG TBuffer: :fQueryFixedQ const 

{ 

return props.fIsSet( FIXED ); 

> 

inline FLAG TBuffer::fSetFixed( FLAG f ) 

return FLAG( ((f ? props.Set( FIXED ) : props.Clear( 
FIXED )) J FIXED) ~ TRUE ); 

> 

inline FLAG TBuffer::fQueryShared() const 
return props.flsSet( SHARED ); 


inline FLAG TBuffer::fSetSharedf FLAG f ) 

{ 

return FLAG( ((f ? props.Set( SHARED ) : props.Clear! 
SHARED )) | SHARED) ■- TRUE ); 

// String functions. 

inline TBuffer* TBuffer::StrCopy( const TBuffer &buf ) 
return PrepareToChange(). strCopy( buf ); 


inline TBuffer* TBuffer::StrCopy( STRING str ) 
return PrepareToChange()._strCopy( str ); 


inline TBuffer& TBuffer::StrConcat( const TBuffer tbuf ) 
return PrepareToChange!)._strConcat( buf ); 


inline TBuffer* TBuffer::StrConcat( STRING str ) 
return PrepareToChange!),_strConcat( str ); 


inline TBuffer* TBuffer::StrTrunc( UINT index ) 

{ 

return PrepareToChange!)._strTrunc( index ); 
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inline TBufferS TBuffer::StrGrow( UINT index ) 
return PrepareToChange()._strGrov( index ); 

inline TBufferS TBuffer::StrGrow( UINT index, BYTE pad ) 
return PrepareToChange()._strGrow( index, pad ); 

//******************************** ##j m^ A ^^^^^ 

********************** 

// 

// TNull inline members. 

// 

inline FLAG TNull::flsNull() const 
return isnull; 

} 

inline FLAG TNull::operator 1 () const 
’ return fIsNull(); 

inline void TNull::setNotNull() 
isnull = FALSE; 

inline void TNull::useAsValue() const 

c * n * d w,,en a "w-* «“ch 

// have a value. 

// 

wm n ?hr“%r«£p^oi < ‘ y ' r “ i "' >le ~" ted this 

// 


> 


ASSERT( isnull « FALSE ); 


IHuli e *SSu e “ 4 ° perat ° r << ( Tstrean tstream, const 

{ 


> 


return stream « FLAG( null.isnull ); 


&nuli e ) TStream& °P erat °r » ( TStream tstream, TNull 


{ 


FLAG isnl; 
stream » isnl; 


SUBSTITUTE SHEET 


- 307 - 


if (isnl) null.fSetNull(); 
else null.setNotNull(); 

return stream; 

5 > 


/include <string.h> 

10 // Private members. 

inline void TString::prepareToChange() 

{ 

buffer « &buffer->PrepareToChange(); 

> 

IS 

// *** typecast operators, 
inline TString::operator STRING () const 
{ 

return buffer->Buf(); 

20 > 

inline TString::operator unsigned char* () 

{ 

return buffer->Buf(); 

25 > 

inline TString::operator char* () 

{ 

return (char*)buffer->Buf(); 

30 > 

inline TStringS TString::operator +■ ( STRING str ) 

{ 

buffer ■ &buffer->StrConcat( str ); 

35 return *this; 

> 

TString operator + ( STRING strl, STRING str2 ) 

< 

40 return TString( strl, str2 ); 

> 

inline UINT TString::uLength() const 

{ 

45 return buffer->uLength()? 

} 

inline char& TString::operator [] ( unsigned index ) 

{ 

50 prepareToChange(); 

return *((char*)buffer->Buf( index )); 

> 

inline const char& TString::operator [] ( unsigned index 
55 ) const 
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{ 

} return ‘((const char*)buffer->Buf( index )); 

// *** friend stream operators. 

inline TStreamS operator « ( TStream &buf, const TString 

( 

return buf « *(str.buffer); 

inline TStreami operator » ( TStream &buf, TString &str 

< 

} return buf » *(str.buffer); 

inline ostream* operator « ( ostream &os, const TString 

( 

} return os « * (Str.buffer); 

inline FLAG TString::fQueryReadOnly() const 
j return buffer->fQueryReadOnly(); 

iniine FLAG TString::fSetReadOnly( FLAG setting ) 
prepareToChange(); 

} return buffer->fSetReadOnly( setting ); 

inline FLAG TString::fQueryFixed() const 
j return buffer->fQueryFixed(); 

inline FLAG TString::fSetFixed( FLAG setting ) 
prepareToChange(); 

} return *>uffer->fsetFixed( setting ); 

inline FLAG TString::fQueryShared() const 
return buffer->fQueryShared(); 

inline FLAG TString::fSetShared( FLAG setting ) 
prepareToChange(); 

return buffer->fSetShared( setting ); 
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/include <string.h> 


//niimmiftmmumiimmmimmmmimm 

immtimmmmi 

// 

// TPort OS/2 inline functions. 

// 

//miiniiimmmiimiiiiifimmmmfmiifmif 

minmmmmmi 

inline FLAG TPort::flsEmptyO const 
{ 

return buffer.flsEmptyO; 

> 

inline FLAG TPort::flsFull() const 
{ 

return buffer.fIsFull(); 

> 

inline FLAG TPort::fPutChar( char ch ) 

{ 

return fWritePort( &ch, sizeof( ch ) ); 

} 

inline FLAG TPort::fGetChar( char 4ch ) 

{ 

return buffer.fGetChar( ch ); 

> 

inline FLAG TPort::fWritePort( PCSZ sz ) 

{ 

return fWritePort( (PVOlD)sz, strlen( sz ) ); 


/ifdef _THREADS 

inline FLAG TPort::fStartConunandThread( TTHREAD thread ) 

{ 

return fStartConunandThread( thread, (PVOID)this ); 

> 

inline void TPort::KillHanageThread() 

{ 

fManThread » FALSE; 

} 

inline void TPort::KillCommandThread() 

{ 

fCmdThread = FALSE; 

) 

/endif // _THREADS 

inline void TPort::StartLog() 

{ 
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log_flag ■= TRUE; 


} 

inline void TPort::StopLog() 
log flag = FALSE; 

> 

inline FLAG TPort::fDumpLog( const char *fnaoe ) 
return log.fDumpLog( fname ); 


inline ULONG TPort::rcErrorCode() const 
return rc; 

> 


/* 

**************************** 
*************** * 

* bpb.h * 

* 

**************************** 
*************** +i 




********************* ## . 


/ifndef _BPB INC 

/define ~BPB~INC 


/include <standard.h> 


/pragma pack (1) 


struct BPB { 

WORD vBytesPerSector; 
BYTE cSectorsPerCluster; 
WORD wReservedSectors; 
BYTE cFATs; 

WORD wRootDirEntries; 
WORD wSectors; 

BYTE cMediaDescriptor; 
WORD wSectorsPerFAT; 

WORD vSectorsPerTrack; 
WORD wHeads; 

DWORD dwHiddenSectors; 
DWORD dwHugeSectors; 

>; 


/pragma pack () 
/endif 
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/* 

*************** */ 

5 

/* 

********************************************************* 
*************** * 

* cds.h * 

10 * 

********************************************************* 
*************** */ 

/ifndef _CDS INC 

15 /define _CDS“lNC 

/include <dpb.h> 

/include <standard.h> 

20 /pragma pack (1) 

struct CDS { 

struct CDS3 { 

CHAR cDirectory [0x43]; 

25 WORD wFlags; 

struct DPB _far *lpDPB; 
union { 

WORD wStartingCluster; 

DWORD IpRedirBlock; 

30 }; 

WORD wUserValue; 

WORD wRootCount; 

}; 

BYTE cDevicelD; 

35 void _far *lpIFS; 

WORD wIFSValue; 

>; 

/define CDS CDROM 0x0080 

40 /define CDS~SUBST 0x1000 

/define CDS JOIN 0x2000 

/define CDS~VALID 0x4000 

/define CDS_REMOTE 0x8000 

45 /pragma pack () 

/endif 

I* 

SO ********************************************************* 

*************** */ 
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/* 


* dpb.h 


*************** +i ************************ 


/ifndef _DPB INC 
/define DPB~INC 


/include <driver.h> 

/include <standard.h> 


/pragma pack (l) 


struct DPB { 

BYTE cDrive; 

BYTE cUnit; 

WORD wBytesPerSector; 
BYTE cClusterMask; 

BYTE cClusterShift; 

WORD wFirstFATSector; 
BYTE cFATs; 

WORD wRootDirEntries; 
WORD vFirstDataSector; 
WORD wMaxcluster; 

WORD wSectorsPerFAT; 

WORD wRootDirSector; 
struct DRIVER HEADER far 
BYTE cMediaDescriptorT 
BYTE cAccessFlag; 
struct DPB _far *lpNext; 
WORD wNextCluster; 

WORD vFreeClusters; 


♦lpDriver; 


/pragma pack () 
/endif 


/* 

*************** */ 




****** 


********** 


**** 


50 


55 


*************** * 

* driver.h * 


**************** 






/ifndef 


_DRIVER_INC 
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/define _DRIVER_INC 

/include <standard.h> 

/pragma pack (1) 

/* Device driver header */ 

Struct DRIVER_HEADER { 

struct DRIVER_HEADER _far *lpNext; 

WORD wAttribute; 

/ifdef _BORLANDC_ 

word *pstrategy; 

WORD *plnterrupt; 

/else 

void _based ((_segment) ^_self) *pStrategy; 
void _based ((_segment) _self) *plnterrupt; 
/endif 

union { 

CHAR cName [ 8 ]; 

BYTE cUnitsSupported; 

>; 

>; 


/* Attribute values */ 


/define 

IS STDIN 0x0001 

/define 

IS STDOUT 0x0002 

/define 

IS HUGE BLOCK 

0x0002 

/define 

IS NUL 0X0004 

/define 

IS*~CLOCK 0x0008 

/define 

INT29H OK 0x0010 

/define 

GIOCTL OK 0x0040 

/define 

GIOCTL QUERY OK 

0x0080 

/define 

OCRM OK 0X0800 

/define 

OTB OK 0x2000 

/define 

FAT REQUIRED 

0x2000 

/define 

IOCTL OK 0X4000 

/define 

IS_CHAR_DEVICE 

0X8000 

/* Device 

driver commands 

*/ 

/define 

' D INIT 0x00 


/define 

D — MEDIA CHECK 

0X01 

/define 

D BUILD~BPB 

0X02 

/define 

D IOCTL READ 

0X03 

/define 

D READ 0X04 


/define 

D~NONDESTRUCTIVE 

READ 0x05 

/define 

D~INPUT STATUS 

“ 0x06 

/define 

D~INPUT FLUSH 

0X07 

/define 

D~WRITE~ 0X08 


/define 

D WRITE WITH VERIFY 0x09 

/define 

D OUTPUT STATUS 

0X0A 

/define 

D output”flush 

OXOB 

/define 

D IOCTL WRITE 

OxOC 
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/define D OPEN_DEVICE OxOD 

/define D~CLOSE_DEVICE OxOE 
/define D REMOVABLE_MEDIA OxOF 
/define DJ3UTPUT UNTIL_BUSY OxlO 

/define D GENERIC_IOCTL 0x13 
/define D~GET_LOGICAL DEVICE 0x17 

/define D~SET_LOGICAL~DEVICE 0x18 

/define D_IOCTL_QUERY 0x19 

/define MAX_DRIVER_COMMAND 0x19 

/* Driver status values */ 


/define 

/define 

/define 


D DONE 
D~BUSY 

d'error 


0X0100 

0X0200 

0x8000 


/* Driver error values */ 

/define D_WRITE_PROTECTED 0x00 

/define D~BAD_UNIT 0x01 

/define D_NOT READY 0x02 

/define D_BAD~COMMAND 0x03 

/define D_BAD_CRC 0x04 
/define d BAD_HEADER 0x05 

/define D~SEEK_FAILURE 0x06 
/define D_BAD MEDIA 0x07 

/define D_SECTOR_NOT_FOUND 0x08 

/define D_NO PAPER 0x09 

/define D_WRITE_ERROR oxOA 

/define D_READ_ERROR OxOB 

/define D_GENERAL FAILURE OxOC 

/define D_BAD_DISK_CHANGE OxOF 

/* Request header structure */ 

struct REQUEST_HEADER { 

of the request header's first portion is 

common to all 
commands. */ 


BYTE cHeaderLength; 

BYTE cUnit; 

BYTE cCommand; 

WORD vStatus; 
char cReserved [8]; 

/*No further fields are required for commands 

06h (input status)07h (input flush) 

OAh (output status) OBh (output flush) 

ODh (open device)OEh (close device) 

17h (get logical device)I8h (set logical device) 
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The request header format for the remaining commands can 
be 

handled by a set of overlapping structures. */ 
union { 
struct { 

/^command OOh (initialise driver) */ 

BYTE cUnitsSupported; 
void _far *IpEndOfMemory; 
union”{ 

CHAR _far *lpCommandLine; 
void _far ♦lpBPBTable; 

>; 

BYTE cDrive; 

WORD wMessageFlag; 

>; 

/* Many commands are provided with a media descriptor 
byte at the 

first location in the variable portion of the request 
header - 

hence another set of overlapping structures. ♦ / 
struct { 

BYTE cMediaDescriptor; 

union { 
struct { 

/♦command Olh (media check) */ 

BYTE cChangeStatus; 

CHAR _far *lpVolumeIDForCheck; 

>; 

struct { 

/♦command 02h (build BPB) */ 

void _far *lpFATSector; 
void far *lpBPB; 

>; 

struct { 

/♦Commands 03h (IOCTL Read), 04h (Read), 08h (Write), 
09h (Write with verify) and OCh (IOCTL Write) all 
transfer data to or from a buffer, though only some 
of these commands require all the following fields. ♦/ 

BYTE _far *lpBuffer; 

WORD wCount; 

WORD wStart; 
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CHAR _far *lpVolumeIDForIO; 
DWORD dwHugeStart; 

>; 


cilarac«r d ° Sh < n °"- d ««™=tive read) simply returns 

only^iSe 1 " 9 ,0r lnput ' if ° ne is Present and requires 
field in its request header. */ 


a 


CHAR cCharWaiting; 


struct { 


*/ /i,Commands 13h (Generic IOCTL) and I9h (IOCTL query) 

BYTE cCategory; 

BYTE cMinorCode; 

WORD vGIoCTLReserved; 

BYTE _far *lpData; 

} f 

>; 

); 


/pragma pack () 
/endif 


*** 


*** 


***************** 


40 


45 


50 


55 


.*******•**....... 

* iosys.h * 


************************** 0 * 41#it 
*************** *, 

/ifndef _IOSYS_INC 

tdet ine ~IOSYS~lNC 

/include <bpb.h> 

/include <standard.h> 




/pragma pack (l) 


struct IOSYSDR1VETABLE { 

struct IOSYSDRIVETABLE far *lpHext- 
BYTE cBIOSDrive; “ P ' 
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BYTE cDOSDrive; 
struct BPB DiskBPB; 

BYTE cFileSystemFlag; 

WORD wOpenCloseCount; 

BYTE cDeviceType; 

WORD vFlags; 

WORD wCylinders; 
struct BPB DriveBPB; 

BYTE cReserved [6]; 

BYTE cLastTrack; 
union { 

DWORD dvLastTime; 
struct { 

WORD wPartitionFlag; 

WORD wStartingCylinder; 

); 

} ; 

CHAR cVolumeLabel [12]; 

DWORD dwSerialNunber; 

CHAR cFileSystem (9]; 

>; 

/pragma pack () 

/endif 

/* 

********************************************************* 
*************** hf 


I* 

*************** * 

* sft.h * 

* 

*************** */ 


/ifndef _SFT_INC 

/define SFT INC 


/include <dpb.h> 

/include <driver.h> 

/include <standard.h> 


/pragma pack (1) 

/* System File Table Header */ 

struct SFT_HEADER { 

struct SFT_HEADER _far *lpNext; 
WORD wCount; 

}; 
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/* System File Table */ 

struct SFT { 

WORD wHandles; 

WORD wAccess; 

BYTE cAttribute; 

WORD wMode; 
union { 

struct DPB _far *lpDPB; 

struct DRIVER_HEADER far *lpDriver; 

}; 

WORD wStartingCluster; 

WORD vTime; 

WORD wDate; 

DWORD dwSize; 

DWORD dwFilePointer; 

WORD wRelativeCluster; 

DWORD dwDirSector; 

BYTE cDirSectorEntry; 

CHAR cName [11); 

struct SFT _far *lpNextShare; 

WORD wMachine; 

/ifdef_BORLANDC_ 

void _seg *spOwner; 

WORD pSharingRecord; 

/else 

_segment spOwner; 

void _based (void) *pSharingRecord; 
/endif 

WORD wAbsoluteCluster; 
void _far *lpIFS; 


/pragma pack () 

/endif 

/* 

♦a*****************************************^^^^^^^ 
*************** */ 


/* 

************************************************ #A####AAlk 
*************** * 

* standard.h * 

* 

***************** t*************************^^^^^^^ 

*************** *, 

/ifndef STANDARD INC 

/define ~STANDARD~INC 

/* Logical operators and values */ 
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/define 

AND 

&& 

/define 

NOT 

1 

/define 

OR 

1 t 

1 1 

/define 

FALSE 

0 

/define 

NOT FALSE 

TRUE 

1 

/define 

OFF 

0 

/define 

ON 

1 

/define 

CLEAR 

0 

/define 

SET 

1 


// for consistency with TRUE « 


/* Convenient data types */ 

typedef unsigned charBYTE; 
typedef unsigned shortwoRD; 
typedef unsigned longDWORD; 

typedef signed charSBYTE; 
typedef signed intSWORD; 
typedef signed longSOWORD; 

typedef unsigned charCHAR; 

typedef intBOOL; 

/* Macro for generating a far pointer from segment and 
offset*/ 

/ifndef MK_FP 

/define MK_FP(seg,off) (((_segment) (seg)) :> ((void 
_based (void) *) (off))) 

Jendif 


/* The above form for MK_FP has a problem (at least in C 
6.00) with 

multiple dereferencing through structures.On the 
other hand, the 

compiler generates much more efficient code with it. 
As an alternative, 

keep the more familiar macro on standby. */ 

/if FALSE 

/define MK FP(seg,off) ((void far *) (((DWORD) (seg) « 
16) J ((WORD) (Off)))) 

/endif 

/* Macros to decompose 16-bit and 32-bit objects into 
high and low 

components and to reconstitute them */ 

/define HIGHBYTE(x) ((BYTE) ((x) » 8)) 

/define LOWBYTE(x) ((BYTE) (x)) 
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/define MK_WORD(high,low) (((WORD) (high) << 8) j (low)) 

/define HIGHWORD(x) ((WORD) ((x) » 16)) 

/define LOWWORD(x) ((WORD) (x)) 

/define MK_DWORD(high,low) (((DWORD) (high) « 16) ' 

(low)) ' 

/* Macros for directing the compiler to use current 
segment register 

values rather than generate relocatable references*/ 

CODESEG _based (_segname (" CODE")) 
CONSTSEG _based 7_segnarae ("_CONST")) 

DATASEG _based (_segname (" DATA")) 

STACKS EG phased J_segname ( ^STACK") ) 

/* Macro for NULL in case using STDLIB.H would be 
inappropriate */. 

/ifndef NULL 

/define NULL ((void *) 0) 

/endif 

/endif 

/* 

***************m****** m ** toll *** t „ MM „ # „ 
*************** */ 


/define 

/define 

/define 

/define 


*************** 

; * driver.inc * 


************************ AAik ** ##jkAA#<tA<k 




* 




; Device driver header 

DRIVER_HEADERSTRUCT 
lpNextddOFFFFFFFFh 
wA11ributedwO00 Oh 
pStrategydwo 0 0 Oh 
plnterruptdwOOOOh 
UNION 

cNamedb” " 

cUnitsSupporteddb? 
ENDS 

DRIVER_HEADERENDS 
7 Attribute values 
IS_STDINEQU0001h 
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IS_STDOUTEQU0002h 
IS_HUGE_BLOCKEQU0002h 
IS NULEQU0004h 
IS~CLOCKEQU0008h 
INT29H_0KEQU0010h 
GIOCTL OKEQU0040h 
GIOCTL"QUERY OK EQU0080h 
OCRM_OK EQU0800h 
OTB_OKEQU200 Oh 
FAT_REQUIREDEQU2OOOh 
IOCTL_OKEQU4 00Oh 
IS_CHAR_DEVICEEQU8 OOOh 

; Device driver commands - these do not follow the 
upper case convention 

; because they are used to generate the names of the 
procedures for each 
; driver command. 

D_INITEQUOOh 
D_MEDIA_CHECKEQUOlh 
D_BUILD BPBEQU02h 
D_IOCTL~READEQU03h 
D_READEQU04h 

D_NONDESTRUCTIVE_READEQU05h 
D INPUT STATUSEQU06h 
D~INPUT~FLUSHEQU07h 
D~WRITE“EQU08h 
D_WRITE WITH VERIFYEQU09h 
D OUTPUT STATUS EQUOAh 
D~OUTPUT~FLUSHEQUOBh 
D_IOCTL_WRITEEQUOCh 
D OPEN_DEVICEEQUODh 
D‘ LOSE DEVICEEQUOEh 
D_ ^MOVABLE MEDIAEQUOFh 
D_OUTPUT_UNTIL_BUSYEQU10h 
D GENERIC_IOCTL EQU13h 
D~GET LOGICAL_DEVICEEQU17h 
D~SET~LOGICAL DEVICEEQU18h 
D_IOCTL_QUERYEQU19h 

MAX_DRIVER_COMMAHDEQU19h 

; Driver status values 

D DONEEQUOlOOh 
D~BUSYEQU0200h 
D_ERROR EQU8000h 

; Driver error values 

D_WRITE PROTECTEDEQUOOh 
D _BAD_UN ITE Q U01h 
D_NOT READYEQU02h 
D BAD - COMMANDEQUO 3h 
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D _BAD_CRCEQU04h 
D_BAD~HEADEREQU05h 
D_SEEK FAILUREEQU06h 
D_BAD MEDIAEQU07H 
D_SECTOR_NOT_FOUNDEQU08h 
D_NO_PAPEREQUO9h 
D_WRITE_ERROREQUOAh 
D_READ_ERROREQUOBh 
D_GENERAL FAILUREEQUOCh 
D_BAD_DISK_CHANGEEQUOFh 

; Request Header structure 

REQUEST_HEADERSTRUCT 
cHeaderLength db? 
cUnit db? 
cConunanddb? 
wStatusdw? 

cReserveddbOSh DUP (?) 

UNION 

STRUCT 

cUnitsSupporteddb? 

1pEndOfMemorydd? 

UNION 

1pCommandLinedd? 
lpBPBTabledd? 

ENDS 

cDrivedb? 
wMessageF1agdw? 

ENDS 

STRUCT 

cMediaDescriptordb? 

UNION 

STRUCT 

cChangeStatus db? 
IpVolumelDForCheckdd? 

ENDS 

STRUCT 

lpFATSectordd? 
lpBPB dd? 

ENDS 

STRUCT 

lpBufferdd? 

wCountdw? 

wStartdw? 

lpVolumelDForlOdd? 

dwHugeStartdd? 

ENDS 

ENDS 

ENDS 

cCharHaitingdb? 

STRUCT 

cCategory db? 
cMinorCodedb? 
vGIOCTLReserveddw? 
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lpDatadd? 

ENDS 

ENDS 

REQUEST HEADERENDS 


t 


*** 


0 * ★★★★A************************** 


; * sft.inc * 

t 

A******************************************************** 

*************** 

; System File Table Header 

SFT HEADERSTRUCT 
lpNextddOFFFFFFFFh 
wCountdwOOOOh 
SFT_HEADERENDS 

; System File Table (with default initialisation 
suitable for use with 
; FCBs) 

SFTSTRUCT 

wHandlesdwOOOOh 
wAccessdw'AA' 
cAttributedb'A' 
wMode dw'AA' 

UNION 

lpDPBdd'AAAA' 
lpDriverdd'AAAA' 

ENDS 

wStartingClusterdw'AA' 
wTime dw'AA' 
wDate dw'AA' 
dwSizedd'AAAA' 
dwFilePointer ddOOOOOOOOh 
wRelativeClusterdw'AA' 
dwDirSectordd'AAAA' 
cDirSectorEntrydb'A' 
cName db'AAAiAAAAA A' 
lpNextSharedd'AAAA' 
wNachinedw'AA' 
spOwnerdw'AA' 
pSharingRecorddw'AA' 
wAbsoluteClusterdw'AA' 
lpIFS dd'AAAA' 

SFTENDS 
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*************** 

; * standard.inc * 


******************************* a#a ^ a# ^ a ^ 

*************** 


****** 


********* 


.WOCREF standard_inc 
IFNOEFstandard inc 


; Logical symbols 
.NOCREF FALSE, TRUE 


FALSEEQUO 
TRUEEQU(NOT FALSE) 


standard inc « TRUE 
ENDIF 


9 


*************** 


***************************** 
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WHAT IS CLAIMED IS: 

1. An apparatus with an integral computer tracing and security monitoring system 
comprising a transparent agent controlling means for sending signals to a host monitoring 
5 system via a telecommunication link, at spaced-apart intervals of time, said signals 

including identifying indicia for said device. 


2. An apparatus as claimed in claim 1, wherein the means for sending signals 
includes a telecommunication interface connectable to a communication link. 

3. An apparatus as claimed in claim 1, wherein the means sends signals at regular 
periodic intervals. 


15 


20 


4. A computer tracing and security monitoring system, comprising: 
a computer; 

a telecommunication interface operatively connected to the computer; and 
means controlled by the computer for sending signals to the 
telecommunication interface including signals for contacting a host 
monitoring system, and for providing the host monitoring system with 
identification indicia. 


5. A system as claimed in claim 4, wherein the computer has addressable memory 
(such as read-only memory or random-access memory, and the means includes software. 


25 6. A method for providing a computer with a Agent security system, comprising the 

steps of preparing software for the computer with instructions for dialing a host 
monitoring system number without visual or audible signals and transmitting identification 
indicia, and programming the software into addressable memory of the computer at a 
location not normally accessible to operating software for the computer. 
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